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TITLE DCMS3* »KEV A* 
BBHCLA TEST 
PART NO. 

DCMX3 60134626-001 

DCMS3 60134627-001 

DCML3 60134628-001 

DESCRIPTION 


THIS T 6 V PROGRAM VERIFIES PROPER OPtRAJIuN OF THE LEVEL-6 MLCP 
BROADBAND HDLC COMMUNICATION LINE ADAPTER (BHCLA). JT PROVIDES 
A FIRST LEVEL OF DIAGNOSIS WHEN FAILURES AkE DETECTED* AND MAKES 
FACILITIES AVAILABLE TO SUPPORT EXTtNSIVE PROBLEM INVESTIGATIONS. 

THE SUBSYSTEM OPTIONS SUPPORTED BY I HiS PROGRAM ARE ? 

MLC 9101 MLCP CONTROLLER 

DCM 9112 BH4DLD PAC - BROADBAND HDLC* CURRENT MODE. 

DCM 9113 BH4DLE PAC - BROADBAND HDLC* BALANCED VOLTAGE. 


REVISION HISTORY 


001 


JUNE 1978 


DCMS3/DCML3 


ORIGINAL release 


THIS DOCUMENT AND THE INFORMATION CUNT AINEu THEREIN CONFIDENTIAL AND 
PROPRIETARY TO AND THE EXCLUSIVE PROPERTY OF HONEYWELL INFORMATION SYSTEMS 
INC, IT IS MADE AVAILABLE ONLY TO HONEYWELL AUTHORISED RECIPIENTS FOR 

* THEIR USE SOLELY IN THE MAINTENANCE AND OPERATION OF HUNEYWELL PRODUCTS, 

* THIS DOCUMENT AND INFORMATION MUST BE MAINTAINED IN STRICTEST CONFIDENCE? 
4 IT MUST NUT BE REPRODUCED IN WHOLE OR IN PART? AND IT SHALL NOT BE DIS- 

* CLOSED TO ANY OTHER PARTY WITHOUT THE PRIOR WRITTEN CONSENT OF HONEYWELL, 
a****#***#***#*#####*#*#**##*#*****###**#***####***###*#*#*******#*#*******#* 
4 PROGRAM PREPARATION; 

THE ROOT~SOURCE OF THIS PROGRAM* AFTER THE ADDITION OF THE APPROPRIATE 
TITLE AND END STATEMENTS, WAS PROCESSED BY THE HOST RESIDENT ASSEMBLER 
TO CREATE EITHER SHORT OR LONG ADDRtSS FORM ( SAF OR CAP ) OBJECT TEXT 
AND LISTING, THE OBJECT TEXT WAS FURTHER PROCESSED BY THE HOST 
RESIDENT LINKER USING THE APPROPRIAfE CQNSuLE Zv$LlB LIBRARY TO CREATE 
A PUNCH SEGMENT CONTAINING AN EXECUTABLE MODULE. THE ASSEMBLY LISTING 

WAS AUGMENTED WITH CROSS REFERENCE 07"* .. ““ T *‘- 

LINKER TO CREATE A LIST SEGMENT. 

ROOT SAF LAF 


DATA, PLUS THE LOAD MAP FROM THE 


NAME DCMX3 

DOCUMENT 60134626-001 


DCMS3 

60134627-001 


6^134628*001 


* DISTRIBUTION 

the~elembntary items submitted to the t & v program distribution center 

WERE THE EXECUTABLE LINKED IMAGES* UN DISKETTE* OF DCMS3 AND DCML3* AND 
MAGNETIC TAPE IMAGES OF THE AUGMENTED LISTINGS. 


AS DUPLICATE CARD 
THE MOST FREQUENT 
(LAF) WITHIN FILE 


REPRODUCTIONS OF THE EXECUTABLE LINKED IMAGES MAY BE 
DECKS OR AS A MEMBER OF A MULTIPLE MtMBER FILE. IN 
CASE* IT WILL BE FOUND AS MEMBER M SP M (SAF) Or » L P" 

"PR0GFILE" OF A DISKETTE VOLUME ENTITLED "mIAGS". 

DISTRIBUTION OF THE LISTINGS* WHICH SHOULD BE AVAILABLE IF ANY COMPLEX 
MAINTENANCE OR REPAIR IS TO BE PERFURMED* IS NORMALLY AS A PRINTED COPY. 


A MINIMUM SATISFACTORY TEST FOR NORMAL OPERATION MAY BE OBTAINED 
RUNNING UNE PASS OF "A" MODE AND ONE PASS OF "C" MODE AT„56 


16 K WORDS OF MAIN MEMORY* 


LOAD AND START (OR RESTART) THE PROGRAM. THE PROGRAM I DENTIF1CATION WILL 
BE DISPLAYED ON THE CONSOLE. THE INITIAL JT ART WILL ALSO DISPLAY; 


# 

* 

* 

* 

* 

# 

# 

* 

* 

* 

* 

# 

# ROUTINE DEMONSTRATION 

# 

# 

* k^BAUD^OR LESSFOR EACH BBH^LA,"OPERATION AT 72 KB RUNS ONLY A 

* SUBSET OF THE PROGRAM. ONLY SINGLE FRAhE TESTS WITH CHAR. SUE 

* OF 8 BITS ARE RUN AT GREATER THAN 36 K oAUD. 

* 

* 

* STORAGE 

* PROGRAM REQUIRES AT LEAST 

* 

* OPERATION 

# 

* 

* 

* 

* 

# 

* 

* 

# 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

# 

* 

* 

# 

* 

# 

* 

# 

* 

* 

*- 

* 

* 

*- 


BY 


THE ZVSLIB REVISION NUMBER 
THE ADDRESS FORM (SAF OR LAF) 
I/O EQUIPMENT DETECTED IN THE 
MEMORY SUE 


SYSTEM 


THIS DISPLAY MUST BE VERIFIED BY THE OPERATOR. 
ON RESTARTS. 


THIS DISPLAY IS OMITTED 


I^fe 0 »Li H OR N ifc 


MDC* THEN SEARCH FOK^TERMINAL WITH 1 HE HIGHEST CHANNEL NUMBER ASSIGNED 
TO AN ACLA ADAPTER ON AN MLC CONTRQCLtR. IF NO ASYNC ADAPTER IS FOUND, 
THEN GO TO THE FULL CONTROL PANEL. 

THERE ARE THREE CONSOwE CHANNEL OPTIONS DETERMINED BY THE VALUE OF LO¬ 
CATION "2V$TTY". 

IF ZVSTTY Equals <0000), SEARCH FOR A CQNSqLE. 

IE Si!)! ISSiti AK5& {SSS5!. T a@ E 1 fe F E!',‘?a!8 L it uwsou 

NEL NUMBER. NOTE; DEFAULT IS TO SEARCH FOR A CONSOLE. 

ALL CONSOLE I/O IS EVEN PARITY. IF f CONSQU IS ON MLC* IT MUST BE ASYNC 
AND THE BAUD KATE SET AT 1200 TO MAICH THE PROGRAM SUPPLIED RATE. IF IT 
IS NECESSARY TO CHANGE THE PROGRAM BAUD RATE* THEN THE NEW BAUD RATE 
CODE SHOULD BE PUT INTO LOCATION »*VSBUD» IN HEX, THE TERMINAL BAUD RATE 
MUST BE SET TO MATCH THIS NEW BAQD RATE. THE CORRECT HEX VALUE MAY BE 
OBTAINED FROM THE FOLLOWING TABLE. 


BAUD RATE TABLE 












TITLE DCMS3* ’REV A* 


PAQ£ 


2 


QQO114 
000115 
000U6 
000117 
000116 
000119 
000120 
000121 
000122 
000123 
000124 
000123 
000126 
000127 
000126 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000136 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000146 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000156 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000166 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000176 
000179 
000160 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000196 

888 III 

000199 

000200 

000201 

000202 

000203 

000204 

000205 

000206 

000207 

000208 

000209 

000210 

000211 

000212 

000213 

000214 

000215 

000216 

000217 

000216 

000219 

000220 

000221 

000222 

000223 

000224 

000225 

000226 


* 

acla i.d. 

(2118)(2110) 

(2108) 

# 

BAUD-KATE 



* 

50 

0 

1 

* 

75 

1 

2 

* 

no 

2 

3 

* 

134 

3 

4 

# 

150 

4 

5 

* 

200 

5 

■«*>—«• 

# 

300 

6 

6 

* 

600 

7 

7 

* 

900 

rntmum 

8 

* 

1050 

6 


* 

1200 

9 


* 

1800 

10 (A) 

10 (A) 

# 

2000 

11 (B) 


* 

2400 

12 (C) 

17*(B) 

# 

3600 


12 (C) 

* 

4800 

13*(D) 

13 (D) 

* 

7200 


14 (E) 

* 

9600 

14~(E) 

15 (F) 

# 

19200 

15 !f! 



TO MAKE ANY OF THE ABOVE CHANGES* LOAD AND HALT THE PROGRAM BEFORE EX¬ 
ECUTION* INSERT CHANGE THEN EXECUTE. MEMORY LOCATIONS OF "ZV$TTY" AND 
"ZVSBUD" MAY BE FOUND IN MAP AT END 5f LISTING. 

CONSULT LEVEL-6 T6V MANUAL "AW94” FUR DETAILS On HOW 10 LOAD THE TESTS. 


DEC 13* 1977 


* 

# 

£ 

THE FOLLOWING IS A TYP 
PROGRAM. 

* 

BHCLA 

TEST 

DCMS3 DEC 

* 

ZVSLIB 

REV. 

6.0 

# 

* 

ZV$AF= 

WDT 

1 <2> 

* 

CHAN 

PEVC 

ID 

# 

0400 

PSKT 

2010 

* 

0480 

OSKl 

2010 

* 

0580 

CDR 

2008 

* 

1200 

DISC 

2330 

* 

1280 

Disc 

2330 

# 

1300 

LPT 

2000 

* 

1360 

CONS 

2019 

* 

MEMORY 

LOW 

00002B2D 

# 

£ 

MEMORY 

HIGH 

00003FFF 

* 

# 

FOR 

6/3X 

OPERATION ' 


PWR FREQ (HZ)?; 

THE OPERATOR MUST RESPOND WITH THE FREQUENCY OF THE CLOCK USED 
AS A SOURCE FOR THE REAL TIME CLOCK (EG. 50 HZ OR 60 HZ). 

THE PROGRAM USES 60 HZ FOR 6/40 OPERATION# U 

THE PROGRAM NEXT DISPLAYS; 

BHCLA CHANNEL(S)?; 

THE OPERATOR MUST RESPOND WITH THE ADDRESSES UF BHcLA* S 

I?TS E A T FfIS?Xr? fc fel¥, l .L ADDRESsES WlTH COMMA!s And TERMINATE 
WITH A CARRIAGE RETURN. 

BHCLA ADDRESSES WILL NORMALLY BE DISPLAYED AS ITEMS IN THE 
CONFIGURATION PRINTOUT. 

NOTE; IF IT IS DESIRED TO TEST BHCLA*S ON MURE 

THAN ONE MLCP MOTHER BOARD, THE PROGRAM MUST BE 
RESTARTED AFTER TESTING THOSE ON THE FIRST 
MOTHER BOARD. THIS IS ACCOMPLISHED BY RESTARTING AT 
HEX 105 IF THE FULL CONTROL PANEL IS PRESENT OR 
RELOADING THE PROGRAM IF ONLY TH£ BASIC PANEL IS 

THE PROGRAM NEXT DISPLAYS; 

LINE XX ID s 21F6 FOR BH4DLP 


LINE XX ID s 2IF7 FOR BH4DLE 

WHERE XX IS THE LINE NUMBER (1 OR 4) 

THE OPERATOR SHOULD VERIFY THIS PRINTOUT CORRECTLY MATCHES 
HIS SYSTEM CONFIGURATION. " L 

FOR USERS WITHOUT A CONSOLE* LINE ADAPTER ID FOR LINE 0 IS 
STOKED IN LOO ATLT AND FOR LINE 1 IN ATLT♦ 1 • 

THE PROGRAM NEXT DISPLAYS; 


THE OPERATOR ENTERS; 

"A M RUN TEST WTH LINE ADAPTER INTERNAL LOOP. 
RUNS FOR APPROX. 3 MIN/PA5S. 


PPROX. 3 MIN/PA5S. 


"Q" QUICK FLAG. RUN ONLY ONE PASS OF NEXT TEST SPECIFIED. 

M P M PRINT FLAG. PRINT TEST LAbLES FOR NEXT TEST SPECIFIED. 

"I" INITIALIZE - CLEAR Q*P FLAGS. RESTART PROGRAM. 

”E” EXTERNAL MODE. - ASSUMES DATA LOOP BACK AT MODEM OR 
OTHER EXTERNAL WRAP. THE DATA CLOCK MUST Be SUPPLIED 

externally. 


"C" RUN LINES WITH CONNECTOR LOOP. 
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PAGE 


3 


000227 
00022 # 
000229 
000230 
000231 
000232 
000233 
000234 
00023# 
000236 
000237 
000236 
000239 
000240 
000241 
000242 
000243 
000244 
00024# 
000246 
000247 
00024# 
000249 
000250 
000251 
000252 
000253 
000254 
00025# 
000256 
000257 
00025# 
000259 
000260 
000261 
000262 
000263 
000264 
00026# 
000266 
000267 
00026# 
000269 
000270 
000271 
000272 
000273 
000274 
00027# 
000276 
000277 
00027# 
000279 
000230 
000281 
000282 
000283 
000284 
00028# 
000286 
0002 8 7 
00028# 
000289 
000290 
000291 
000292 
000293 
000294 
00029# 
000296 
000297 
00029# 
000299 
000300 
000301 
000302 
000303 
000304 
00030# 
000306 
000307 
00030 # 
000309 
000310 
000311 
000312 
000313 
000314 
00031# 
000316 
- 000317 
00031# 
000319 
000320 
000321 
000322 
000323 
000324 
00032# 
000326 
000327 
00032# 
000329 
000330 
000331 
000332 
000333 
000334 
00033# 
000336 
000337 
00033# 
000339 


THE PROGRAM THEN DISPLAYS (1ST PASS ONLY); 

MLCP FW REV AA 
AND THEN 

BHCLA LINE 0 FW REV Bb 
DATA SET STATUS = QOGQ 


AND/OK 

BHCLA LINE 4 
DATA SET STATUS = 


* 

# 

# 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

# 

# 

* 

* 

* 

* 

* 

# 

* 

# 

* 

* 

# 

# 

* 

# 

* 

* 

* 

* 

* 

* 

# 

# 

* 

# 

* 

*###***##* 

* 

* CONNECTOR LOOP INFORMATION! 

# 


FW REV CC 
PPPP 


WHERE AA* BB* AND CC ARE FIRMWARE REV NUMBERS AND Pppp AND QOQQ 
ARE DATA SET STATUS VALUES READ AFTER AN MLCP INITIALIZE. 

THE MLCP REV NUMBER IS STORED IN LOC "MLC~FR". 

BHCLA FIRMWARE REV NUMBERS ARE STORED IN LOCATIONS 
HCFW-1 AND HCFW-2 FUR LINE ADAPTERS l AND 2 
RESPECTFULY. THESE ARE FOR EXAMINATION* IF 
DESIRED BY USERS WITH NO CONSOLE. 


THE PROGRAM WILL RUN A FEa SECONDS PER BHCLA IF THERE ARE NO 
HARDWARE FAULTS. IT WILL THEN DISPLAY; 

LINE 0 SPEED * AAAA BITS/SEC 

AND/OR 

4 SPEED s BBB3 BITS/SEC 

C ”10" ARE STURtD IN LOCATIONS 


LINE 

THESE VALUES DEVIDED BY DEC _ .. ... _ 

HCLS-l AND HCLS-2 FOR USERS WITHOUT A CONSOLE. A HExiDECIMAL 
TO DECIMAL CONVERSION MUST BE MADE WHEN INTERPRETING THESt 
MEMORY LOCATIONS. 

THE TESTED SPEED CORRESPONDS TO THE SETTING OF THE TEST 
CLOCK ON THE MLCP. THIS CAN BE VARIED BY MEANS OF A HEX 
ROTARY SWITCH ON THE MLCP. 


PASS TIME FOR THE PROGRAM IS APPROXOMATtLY 2 MIN. 
FOR "A” MODE OR "C" MODE. 


per bbhcla 


AT THE END OF THE PASS THE THE PROGRAM WILL DISPLAY; 

PASS 

AND CONTINUE 0N T0 THE NE * T FOR SYSTEMS WITHOUT A CONSOLE 

THE PROGRAM WILL HALT WITH EO s HEX 100 Al THE END OF EACH PASS. 

IF THERE IS NO CONSOLE PRESENT REFER TO THE MANUAL "SERIES 60 
LEVEL 6 T ♦ V OPERATOR* S MANUAL" * DOC AW94 FOR INSTRUCTIONS 
ON ENTERING DATA AND INTERPRETING PROGRAM MESSAGES. 


THE LOOP CONNECTOR MUST BE AS FOLLOWS. PINS REFERENCED 
ARE ON THE OUTPUT CONNECT OR OF THE LINE ADAPTER. 


* 

301/303 CURRENT 

MODE ADAPTER * 

BH4DLD 


# 

PIN 

SIGNAL 

TIES TO 

PIN 

SIGNAL 


* 

22 

RTS 

LR2 BIT 1 

26 

DSR LR# BIT 

0 

* 

22 

RTS 

LR2 BIT I 

27 

CD LR# BIT 

2 

* 

22 

RTS 

LR2 BIT I 

25 

CTS LR# BiT 

1 

Ik 

20 

DTR 

LR2 BIT 0 

24 

RING LR# BIT 

3 

# 

6 

TR DATA 


14 

RC DATA 


* 

4 

TEST 

cue A 


2 

TR CLK 


# 

12 

TEST 

CLK. B 


10 

RCV CLK 


* 

V • 35 

BALANCED LINE ADAPTER 

(BH4DLE) 


# 

27 

ROS 

LR2 b] 

T 1 

23 

CD LR# BIT 

2 

* 

27 

ROS 

LR2 BJ 

T i 

21 

CTS LR5 BIT 

1 

* 

26 

DTK 

LR2 B3 

IT 0 

22 

DSR LR# BIT 

0 

* 

26 

DTR 

LR2 B] 

T 0 

20 

RING LR# oIT 

3 

# 

19 

XMIT 

DATA 

-) 

14 

RCV DATA <-) 


# 

18 

XMI f 

DATA 

♦> 

16 

RCV DATA (♦) 


* 

6 

TES1 

CLK <♦) 

2 

TR CLK (♦) 


* 

6 

TES' 

CLK <♦) 

10 

RCV CLK <♦) 


* 

8 

TES1 

CLK 


4 

TR CLK (-) 


Ik 

8 

TES! 

CLK 


12 

RCV CLK (-> 



TO OPERATE IN EXTERNAL LOOPBACK• 


1. 

2 . 


DIRECT CONNECT MUST BE SET 

LR2 BITS 2*3* AND 5 MUST BE RESET 


ERROR REPORTS 

ERRORS WILL CAUSE THE PROGRAM TO HALT* AN ERROR MESSAGE WILL 
BE DISPLAYED IF A CONSOLE IS PRESENT. 

ERROR DISPLAYS ARE AS FOLLOWS; 
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(30034Q 

88SIJJ 

000343 

000344 

000343 

000346 

000347 

000346 

000349 

000330 

00035* 

000352 

000353 

000354 

000355 

000356 

000357 

000358 

000359 

000360 

000361 

000362 

000363 

000364 

000365 

000366 

000367 

000366 

000369 

000370 

000371 

000372 

000373 

000374 

000375 

000376 

000377 

000376 

000379 

000380 

000381 

000382 

000383 

000384 

000385 

000386 

000387 

000388 

000389 

000390 

000391 

000392 

000393 

000394 

000395 

000396 

000397 

000396 

000399 

000400 

000401 

000402 

000403 

000404 

000405 

000406 

000407 

000406 

000409 

000410 

000411 

000412 

000413 

000414 

000415 

000416 

000417 

000416 

000419 

000420 

000421 

000422 

000423 

000424 

000425 

000426 

000427 

000426 

000429 

000430 

000431 

000432 

000433 

000434 

000435 

000436 

000437 

000436 

000439 

000440 

000441 

000442 

000443 

000444 

000445 

000446 

000447 

000448 

000449 

000450 

000451 

000452 


ERR MBXX AT YYYY 

AA 8B CC DD EE 
R7 R6 R5 R4 R3 


GG HH 


ERR DBXX AT YYYY LINE ZZ 


BB CC DO EE 
R6 R5 R4 R3 


MB s MOTHER BOARD 

PB z DAUGHTER BOARD 

XX 5 TEST LABLE. SEE JUMP TABLE AT LOCATION "HDTSA” 
FOR A LIST OF TESTS PERFORMED. 

EACH TEST NAME IS SUFFIXED BY -XX. 

YYYY * ERROR LOCATION IN LISTING. HAS COMMENT 
GIVING FAILING FUNTION* 

ZZ z LINE NUMBER 

FOR SPECIALIST USAGE; 

R1-R7 % M ARE CONTENTS OF REGISTERS. 

AA - HH ARE CHANNEL PROGRAM OPERATION RESULTS. 

IN ALL CASES; 

R3 = CHANNEL NUMBER 

IN GENERAL 

it i mi bi T a uata 

R7 = WORD NUMBER IN BLOCK TRANSFER 

MLCP CHANNEL PROGRAM INFORMATION IS AS FOLLOWS 

AA s CCP P VALUE* RCV 

BB s CCP P VALUE* XMIT 

CC = LR5 RCV/ LR5 XMIT 

PD z ERROR CODE/LAST LR2 OUTPUT 

EE s RCV LR7/CCP FLAG 

FF 5 RCV CHAR COUNT (NEG)/XMJ f CHAk COUNT (NEG) 

GG z RCV FRAME (NEG)/XMIT FRAME (NtG) 

HH s RCV CONFIG/ SI2E LAST XMIT BYTE 

IF THE LEFT 8 BITS OF ”DU" ARE NON ZERO THE MLCP 
MLCP CHANNEL PROGRAM DETECTED AN ERROR. THE VALUE 
SHOULD BE INTERPRETED FROM THE FOLLOWING TABLE; 


1 LR7 STATUS WRONG AFTER INITIAL ILS RUPT 

2 LR5 ADAPTER READY 3IT NOT SET FOR RCV AFTER INITIAL ILS RUPT 

3 BART DOESN'T BRANCH. AFTER INITIAL ILS RgPT 

4 LR5 ADAPTER RDY BU SET WHEN SHOULD BE 0. 

5 MISSED CLOSE FLAG* RANGE COMPLETED 

6 NO ILS RUPT AFTER LAST FRAME. 

7 MISSING ILS RUPT BETWEEN FRAMES 

8 ADAPTER READY NOT SET AFTER FIRST CRI OF 2ND, 3D* OR 4TH FRAME. 

9 ADAPTER READY SET aHEN SHOULD BE CLEARED 

A LR7 ERROR IN LB 0*1*2 FOR RCV AT EOF. 

B PENDING RECEIVE REQUEST AFTER LAST MESSAGE 

C PENDING TRANSMIT REQUEST AFTER TKANSMIT SHUT OFF 

D TWO SEQUENTIAL INPUT LR7 INSTRUCUUNS GAVE DIFFERENT RESULTS. 

E DELAY XMIT BIT SET DIDN'T INHIBI( DATA TRANSMISSION. 

10 READ CRC STATUS SET WHEN NOT IN DIAGNOSTIC MODE. 

A PROGRAM HALT WITH p DISPLAYING A VALUE LEgS THAN 
HEX 100 INDICATES THAT A TRAP OCCURED. P DISPLAYS ONE 
BEYOND THE ACTUAL TRAP VECTOR WHICH WAS TAKEN. THf 
TRAP SAVE AREA IS FROM LOC. 2-9. REFER TO MODEL 
34/36 T ♦ V OPERATING INSTRUCTION MANUAL* DOC 
71010460-200* SECTION 1.1 . 

FOR SPECIALIST USAGE THERE IS A TABLE OF CHANNEL PROGRAM (CCP) 
PARAMETERS WHICH IS FILLED AT THE TIME OF AN ERROR. (OUTTAB) 


**************************************** 
**************************************** 

* RESTRICTIONS; 

* THIS PROGRAM REQUIRES A SYSTEM CONSOLE IF IT IS Run ON A 

* SYSTEM WHICH DOES NOT HAVE THE FULL CONIRUL PANEL. 

* 

* BHCLA FIRMWARE IS AT REV l AT THE INI UAL RELEASE OF 

* THIS PROGRAM. 


*************************************** 
* 

* 

* 

* SOURCE s DCMS3A3 

* 

* STANDARD REGISTER ASSIGNMENTS 


* 


$B5 

V$LIB 

ENTRY 

* 


$62 

ENTRY 

TO MAJOR TEST 

* 


$B4,$B1 

ENTRY 

TO SUB-RUUTINES 

*E 

£ 

$B7E 

ENTRY TO 

E3R0R R 

OUTINE 

*E 

$R3 

CHANNEL 
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TITLE DCMS3* »REV A* 


000453 
000454 
000455 
000456 
000457 
000456 
000459 
000460 
000461 
00046<2 
000463 
000464 
000465 
000466 
000467 
00046b 
000469 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 
000476 
000479 
000480 
000481 
000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 
000523 
000524 
000525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000538 
000539 
000540 
000541 
000542 
000543 
000544 
000545 
000546 
000547 
000548 
000549 
000550 
000551 
000552 
000553 
000554 
000555 
000556 
000557 
000558 
000559 
000560 
000561 
000562 
000563 
000564 
000565 


*E 

SR5E 

•IS* DATA WORD 

*E 

$R6E 

•SHOULD BE• DATA WORD 

*E 

* 

* 

SR7E 

TABLE COUNT 


********************************************************************* 

* 

STATUS SITS SET BY CCP IN MLCP STATUS 


BIT 02 DATA SERVICE ERROR (X*2QQ0*) 
BIT 06 ABORT RECEIVED (X*Q200») 

BIT 09 CRC ERROR <X»0040) 

BIT 11 EOF RECEIVED (X'OOIO*) 


FOR RECEIVE THESE BITS ARE 
MAPPED FROM BITS 2*1*3* AND 0 OF LR7 


TEST STRUCTURE (FOR SPECIALIST USE ONLY) 


CHANNEL PROGRAM INFORMATION 
DEFINITION OF CONTROL FLAG PASSED TO CCP 


IS TRANSMITTED. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*********************************************************************** 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


INSERT 100 MS IN XMlT CCP AFTER CHAR "N« 

SEND "ABORT" AFTER CHAR "N" IS TRANSMITTED. 

TURN ON RCV AFTER FRAME "X" IS TRANSMITTED 
READ IN CRC INFORMATION 

INSERT 100 MS IN RCV CCP AFTER CHaR "N« is INPUI. 

INSERT DELAY BETWEEN FRAMES 
ISSUE RCV RESYNC (OUT LR3) 

ACCUMULATE CHAR. COUNT. IF = 0, CCP»S USE MINIMUM DATA LOOP 


THE above 


"X" AND "N" ARE FRAME AND CHAR NUMBERS PASSEu TO THE CCPS BEFORE 
EXECUTION TO SPECIFY AT WHAT TIME THE ACTION SPECIFIED BY — *“ 
FLAG IS TO BE TAKEN. THE FIRST CHARACIER 
AND FRAME ARE NUMBERED "1". 

THE PERT INANT LCT PARAMETERS ARE? 


LOC 

3 

4 
E 

14 

17 

18 
19 
1A 
IB 

15 

IE 

IF 

2E 

37 

38 

39 
3A 
3B 
3C 
3D 
3E 
3F 


DESCRIPTION 

SUE OF LAST BYTE 
SIZE OF RESIDUE EXPECTED 
LR5 STORAGE (RCV) 

LR2 STORAGE (RCV ♦ XMIT) 

LR6 * RCV 

CHAR COUNT* RCV* <-). 

CONTROL FLAG FRAME NO.* XMH 
LR7* RCV 

FRAME COUNT* RCV (-> 

RCV TEMPORARY STORAGE 

CONTROL FLAG CHAR NO.* RCV 

XMIT FW REV 

RCV FW REV 

LR5 STORAGE* XMIT 

LR7* XMIT 

CHAR COUNT* XMIT* (-) 

TEMPORARY STORAGE* XMIT 
ERROR CODE 

FRAME COUNT* XMIT* (-) 

CONTROL FLAG CHAR NO.* XMIT 
WORD SIZE MASC 

CONTROL FLAG (SEE ABOVE DESCRIPTION 

BIT 0 = INTER FRAME FILL STATE (Q = ABORTS) 

BIT 1 ? DELAYED TRANSMIT OF FIFO 

BIT 2 * INITIAL FILL STATE (0 * ABORTS) 

BITS 3 - 7 s CONTROL FLAG FRAME COuNT* RCV 


*********************************************************************** 

* 

calling sequence 


A COMMON calling SEQUENCE IS USED FOR DIFFERENT TESTS THROUGHOUT 
THE PROGRAM. IT IS; 


LNJ 

DC 

DC 

DC 


DC 

DC 

DC 


DC 

DC 

DC 

DC 


K 

DC 


SB2.XXX 

A 


ABORT) 


ABORT) 
LAST BYTE 
" 8 BITS) 


CALL TO SPECIFIC TEST 
RCV CONFIG (LR6) 

XMIT CONFIG (LR7) 

BIT 0 s INTER FRAME FILL MODE (Os 
BIT 1 = DELAY XMIT BIT 

bit 2 s Initial fill mode (o 

BITS 5 - 7 = BYTE SIZE OF L *' 

(1-781-7 BITS* 0 * 

INITIAL LR2 VALUE 
CCP CONTROL FLAG. (SEE PRIOR DESCRIPTION) 

BITS 0-7 = RCV FRAME FOR WHICH CONTROL FLAG IS VALID 
THIS IS PASSED AS A’NEGATIVE wUANTjTY. 

BITS 8 - 15 = CHAR NUMBER IN FRAME FOR WHICH 
CONTROL FLAG IS VALID. 

THIS IS ALSO PASSED AS A NEGATIVE QUANTITY. 

AS ABOVE BUT FOR XMIT 

1ST TRANSMIT BUFFER ADDRESS 
RANGE 

CONTROL WORD 


LAST TRANSMIT DATA BUFFER ADDkESS 
RANGE 

CONTROL WORD ( CONTAIN* LAST BLOCK BIT) 
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000566 
00056? 
000568 
000569 
000570 
000571 
QQG572 
000573 
000574 
000575 
000576 
000577 
000576 
000579 
000580 
000581 
000582 
000583 
000584 
000585 
000586 
000587 
000588 
000589 
000590 
000591 
000592 
000593 
000594 
000595 
000596 
000597 
000596 
000599 
000600 
000601 
000602 
000603 
000604 
000605 
000606 
000607 
000608 
000609 
000610 
0006i1 
000612 
000613 
000614 
000615 
000616 
000617 
000618 
000619 
000620 
000621 
000622 
000623 
000624 
000625 
000626 
000627 
000628 
000629 
000630 
000631 
000632 
000633 
000634 
000635 
000636 
000637 
000638 
000639 
000640 


UP TO 4 DATA dLOCKS CAN BE SPECIFIED 


000642 

000643 

000644 

000645 

000646 

000647 

000648 

000649 

000650 

000651 

000652 

000653 

000654 

000655 

000656 

000657 

000658 

000659 

000660 


0000 


DDE EXISTS WHICH ALLOWS CRC AND CRC 
INPUT. THIS IS ACCOMPLISHED By CONFIGURING 
SIZE OF 1 (VIA LR 6) AFTlR THg LAST DATA 


a 
a 

aaaaaaaaaaaaaa 
a 

* SPECIAL DIAGNOSTIC FEATURE 
a 

* A DIAGNOSTIC MODE EXISTS 

* RESIDUES TO BE -- 

* A RELIEVE BYTE 

* BYTE OF A FRAME HAS BEEN RECEIVED. 

* 

* 

* TEST DESCRIPTION 

* 

* 
a 

* TONTST - TURN ON TEST. TESTS IDLE LINK STATE INTERRUPT* 

* FLAG IDLE STATE* TRANSMIT WITH NO RECEIVE. PROGRAM 
READS AMD REPORTS BHDLC FIRMWARE REV. 


THERE ARE 4 BASIC TESTS TO WHICH PARAMETERS ARt PASSED 
USING THE SEQUENCE DESCRIBED ABOVE. THEY ARE; 


LPTS 


• LOOP DATA TEST. DATA IS TURNED AROUND AND CHECKED 
FOR SINGLE FRAME CASES. 


RET- RECEIVE END TEST. MULTIPLE FRAMES (1-4) CAN I 
AND RECEIVED,.WIIH_DI^FEREN^ENDlNG CONDITION 


;e sent 


A FLAG IS PASSED TO _ _ 

STATE OF THE FRAMES TO BE RECEIVED. 
FOLLOWS 


WHICH SPEC! 
- * THI< 


IES THE 

FLAG* EXST* IS AS 


ABCD 

A 5 
B = 

C 5 
D 5 


4 BITS SPECIFYING STATE OF 


FRAME I 

" 3 

w 4 


SPTS 


THE ABOVE 
OUTPUT LCT 


STATE VALUES ARE AS FOLLOWS; 

1 s NORMAL ENDING CONDITION 

2 s OVERUN 

3 9 NULL (BHCLA IGNORE* FRAME)* LAST FRAME. 

PROGRAM CHECKS MLCH STATUS FOR "0". 

4 =; NULL (BHCLA IGNORS FRAME* NO REPORT)* NUT LAST FRAME 

PROGRAM SKIPS STATUS AND GOES TO NEXT. 

5 s MISSING FRAME 

6 9 ABORTED FRAME 

7 s ABORTED FRAME DURING WHICH OVERUN QCCURED 

- SPEED TEST - PROGRAM LOOP* A 204$ BYTE FRAME 

FRAME AND TIME* UNTIL END OF RANGE OR 4 SECONDS 
AND REPORTS TEST CLOCK SPEED, 


4 TESTS.ALL. USE_A„COMMAN DRIVER,.(LuAD), 


AND CHANNEL PROGRAM 


INFO TO ThE 


.TO 
MLCP, 


* THERE IS ONE ADDITIONAL BASIC TEST WHICH HAS NO PARAMETER* 

* PASSED TO IT. 
a 

a 
a 

* 

* 
a 
a 
a 
* 

* 

* 
a 
* 

* 


C6LP-E - CONNECTOR LOOP DATA SET STATUS TEST. THl* TE*T 
LOOPS DATA SET CONTROL SIGNALS TO DATA | E J STATUS 
SIGNALS TO CHECK OUTPUT DRIVERS ON £HE BHDLC BOARD. 


AN EXTERNAL WRAP CONNECTOR IS NECESSARY FOR THIS TEST. 


ADDRESS 
EACH ' 
HAVE 


5S* CONTROL ? ♦ LCF ARE FORMATTED FUR T 
TEST BY SUBROUTINE M GHEAD'*. SUBSEQUENT 
ADDRESS AND CONTROL FIELDS SET TU 0. 


THE FIRST FKAME OF 
~ FRAMES IN EACH TEST 


ZERO 


a##*#***##*#*#*#**#####*##**************#*****#*********#********** 
a 

ZHN]SA*ZHTHi5 *ZV$HR 
ZV$RD*ZV$FI*Zv$FR*ZV$TTY 
ZHISAZ*ZH1AFB*ZV$T 
ZHWDTC*ZHRTCC 
ZHRTCI*ZHRTCL 
ZHPFR*ZHCOMM 
ZVSPCH 

ZV$BRK*ZV$BKF 
ZV$QC*ZV$TC*ZVSTD*ZV$THZ 
LINK ZVSTH 


EQU 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

XLOC 

CTRL 


000661 

GOFF 





ORG 

zero*x*ff* 

000662 

OOFF 

0F06 



STOP 

NOP 

>RESTRT 

000663 





a 



000664 





* 



000665 

000666 

0100 

0102 

89C0 

0981 

1063 

0150 


STRT 

CMZ 

BNE 


000667 

000668 

0104 

0F7C 



a 

NOP 

>STRT 

000669 

0105 

8700 

1182 


RESTRT 

CL 

<PASSC 

000670 

0107 

8700 

1175 



CL 

<IFLG 

000671 

000672 

FBCO 

D360 

0003 

0000 

X 

a 

CALL 

ZVSRD* TITLE 


0109 

OiOB 


01QD 

0F80 







01QE 

uci 





SR1*<N0P 

000673 

010F 

9800 

025D 



LDR 

000674 

0111 

9F00 

OOFF 



STR 

$R1*<STQP 


NO ERROR FOUND IN MLCC 


£HECK F|HST_T£ME 


BRANCH IF NOT 


irs? l time 


CLEAR PASS COUNT 
CLEAR BIT INVERSION FLAG 
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000675 






* 






000676 






* ASK 

FOR WDT 

FREQUENCY (IF 

6/3X) 



000677 






* 






m ^ 000676 

0113 

6980 

1164 




CM2 

<FR5T 


CHECK I-IK5T TiME F|_AG 


m 000679 

0115 

0960 

013E 




BNE 

<RST 




000680 

0117 

6A80 

1164 




INC 

<FRST 


SET FIRST TIME FLAg 


000681 

0119 

1C3C 





LDV 

SR 1 * = 60 


DEFAULI FREQUENCY 


000682 

011A 

9F00 

1191 




STR 

SR1*<HRTZ 




000683 

one 

8C51 





STS 

= $R 1 




000684 

0110 

8201 





LB 

=$R1♦sZ , 2000* 





OUE 

2000 










000685 

011F 

0501 

0000 




BBT 

RFRIQ 


B * 6/4x 


000686 






FREQ 

CALL 

ZVSQC * MESG5 


PWR FREQ (HZ) 



OlZJi 

FBCO 

0003 










0123 

0360 

0000 


A 








0125 

0F80 











0126 

UE1 










000687 







CALL 

2VSID * HRTZ 


INPUT 



0127 

FBCO 

0003 










0129 

0380 

0000 


X 








012B 

0F80 











012C 

1191 










000686 

0120 

6756 




RFRIQ 

CL 

= $R6 




000689 






* CONVERT WDT 

TICK TO 0 SEC 




000690 

012E 

F870 

C350 




LDR 

SR7 * = 2•C350• 


50000 


000691 

0130 

F300 

1191 




DIV 

SR7 * <MRTZ 




00069(2 

0132 

8756 





CL 

= SR6 




00Q693 

0133 

F 37Q 

0064 




DIV 

SR7,=100 




000694 

0135 

FFOO 

1193 




STR 

SR7 *<DIVI 




000695 

0137 

7000 





DOR 

SR7 *16 




000696 

0136 

F370 

OOOA 




DIV 

$R7 * = 10 




000697 

013A 

FFOO 

1194 




STR 

SR7 * <DIV2 




000698 

013C 

EFOO 

1195 




STR 

$R6*<DlV3 




000699 

013E 

4C02 




RST 

LDV 

$R4 * = 2 




000700 

013F 

CFOO 

116C 




STR 

$R4 * <RANGE 




000701 

0141 

1CFF 





LDV 

SR 1 * = •■ 1 




000702 

0142 

9F00 

11B9 




STR 

$R1 * <ATLT 




000703 

0144 

9F00 

11 BA 




STR 

SRIi<ATLT ♦ 1 


INITIALIZE ACTIVE LINE TABLE 


000704 

0146 

9F0Q 

11BB 




STR 

SR 1*<ATLT+2 




000706 







CALL 

ZVSF*TMPSTR*CQ»C8 




0148 

FBCO 

0003 










014A 

0380 

0000 


X 








014C 

0F80 











0140 

ilAE 











014t 

118E 






% 





014F 

118F 










000706 

0150 

9800 

1171 




LDR 

$R1,<DADD 


GET LAST DEVICE ADDRESS GIVEN 


000707 

0152 

9F0Q 

11AE 




STR 

$R1*<TMPSTR 


USE AS DEFAULT 


000706 






* 






000709 






* ASK 

FOR BBHDLC ADDRESS 




000710 






* 






000711 







CALL 

ZVSQCfMESGl 





0154 

FBCO 

0003 










0156 

0380 

0000 


X 








0158 

OF 80 










£ ■ 

0159 

11D5 










a 0007 i z 







CALL 

ZVS IH * TMPSTR * 

RANGE 



\ 

015A 

FBCO 

0003 










015C 

0380 

0000 


X 








015E 

0F80 











015F 

11AE 











0160 

116C 










000713 

0161 

8752 





CL 

= SR2 




000714 

0162 

9800 

11AE 




LDR 

SR 1• cTMPSTR 




000715 

0164 

1901 

0020 




BEZ 

SR1*JP2 


IF ZERO, INVALID 


000716 

0166 

9F00 

1171 




STR 

SR 1 * <DADD 


NEW DEFAULT 


000717 

0168 

AB80 

11AE 




LAB 

SB2 « < TMPSTR 




000718 

016A 

CB80 

019E 




LAB 

SB4 * <NODEVF 




000719 

016C 

CF80 

0000 


X 


STB 

SB4*<ZHTH15 




000720 

016E 

986E 




SALT 

LDR 

SRI* SB2 • + SR2 


GET VALUE INPUT 


000721 

016F 

1900 

Q1DD 




Bfc,Z 

SR 1 * <CQN3 


CHECK FOR END OF LIST 


000722 

0171 

9970 

FFCO 




CMR 

$R1*=Z*FFC0* 


COMPARE CHANNEL WITH HEX FFCO 


000723 

0173 

030A 





BG 

>JPi 


CHANNEL NUMBER TO LARGE 


000724 

0174 

9970 

03C0 



RCK 

CMR 

SRl*=X»3C0« 


COMPARE CHANNEL WITH HEX 3C0 


000725 

0176 

0387 





BLE 

>jpi 


CHANNEL NUMBER TO SMALL 


000726 

0177 

1E26 




CONI 

ADV 

$R1*=X*26» 


PUT FUNCTION IN 


,000727 

0178 

8055 





10 

= SR5 *sSR1 


INPUT DEVICE NUMBER 



0179 

0051 










000728 

017A 

0970 

2178 




CMR 

$R5 * sZ * 2178• 


COMPARE DEVICE NUMBER RESPONSE 


000729 

017C 

0924 





BE 

>C0N2 




000730 

0170 

1001 




JP1 

CMV 

SRl*sl 




000731 

017E 

0987 





BNE 

> JP2 




000732 







CALL 

ZVSPCH 


GO TO HATCHER IF ADD = 1* 



017F 

FBFO 

0001 










0181 

0380 

0000 


X 







000733 

0183 

0F80 

013E 




B 

<RST 


RETURN 


000734 

0185 

9870 

2A2A 



JP2 

LDR 

SRI**A«**« 




000735 

0187 

9F00 

11EA 




STR 

SRI*<ERMG+1 




000736 







CALL 

ZVSTC*BADINP 





0189 

FBCO 

0003 










0180 

0380 

0000 


X 








0180 

QF8Q 











018E 

0191 










000737 

018F 

0F80 

013E 




B 

<RST 




000738 

0191 

4248 

434C 

4120 


BAOINP 

TEXT 

•BHCLA NOT ON 

THIS 

CHANNELS* 



0194 

4E4F 

5420 

4F4E 










2054 

4849 

5320 










4348 

414E 

4E45 










4C24 










000739 






# 






000740 

019E 

8755 




NQDEVF 

CL 

= SR5 


TRAP HANDLER ROUTINE 


000741 

019F 

0003 





RTT 





000742 






# 






000743 






# 






000744 






* 






000745 






# 

PREPARE ACTIVE LINE 

TABLE 



000746 






* 






M v 000747 






* 






C 000748 

01A0 

1E02 




C0N2 

ADV 

SRI*=2 


FORM FC FOR EXTENDED ID 


m.000749 

01A1 

8055 





10 

=$R5*=$R1 


READ EXTENDED ID 



01A2 

0051 










000750 

01A3 

0703 





BIOT 

>$+2*SAF 




000751 

01A4 

E380 

OFBA 




LNJ 

SB6 *<ERRMB 


READ EXTENDED ID WAS NAMED 






TITLE DCMS3* «REV At PAGE 8 


00075a 

01A6 

5048 




SQR 

$R5 *8 

ALIGN EXTENDED ID 


000753 

01A7 

D470 

2100 



OR 

$R5 •2100• 



000754 

01A9 

DFOO 

116D 



STR 

$R5 *<DEVID 



000755 





* 




m ^ 

000756 

01A6 

D970 

21F6 



CMR 

$R5is2»21F6« 


1 

000757 

OIAD 

Q9A9 




BNE 

> JP3 

BR s NOT BH4DLD 


000758 

01AE 

9570 

03C0 


COM4 

AND 

$R1*5X* 3C0 * 



000759 

01B0 

1047 




SQR 

SR1*7 

GET LINE NUMBER 


000760 

QIB1 

1D04 




CMV 

$R1»*4 

CHECK FOR LEGAL LINE VALUE 


000761 

0162 

0353 




BG 

> JP2 

BRANCH IF NO GOOD 


00076 a 





* 





000763 

G1B3 

9F00 

1177 ' 



STR 

$R1♦<TPR 



000764 

0165 

1041 




SQR 

$RU1 

GET LINE ADAPTER NUMBER 


000765 

0166 

DF10 

11B9 



STR 

$R5 *<ATLT t $R1 

STORE ID 


000766 





* 





000767 

0168 

9800 

1177 



LDR 

$R1*<TPR 



000768 

01BA 

9F00 

1C00 



STR 

$R1,<RTB 



000769 






CALL 

ZVSTdIDMSG 

LINE 



016C 

FBCO 

0003 








01BE 

D380 

0000 

X 







01C0 

0F60 









01C1 

11F7 








000770 






CALL 

ZV$TD«RTB 

NUMBER 



01C2 

FBCO 

0003 








01C4 

D380 

0000 

X 







01C6 

0F8Q 









01C7 

1C00 








000771 






CALL 

ZVSTtEQ 

r 



01C8 

FBCO 

0003 








01CA 

D380 

0000 

X 







oicc 

OF80 









OiCD 

11FB 








00077a 






CALL 

ZV$TH*DEVID 

DEVICE id 



OKE 

FBCO 

0003 








0 IDO 

D360 

0000 

X 







01D2 

0F80 









01D3 

U6D 








000773 





* 





000774 

01D4 

0F60 

016E 



B 

<SAlT 



000775 





* 





000776 

01D6 

D970 

21F7 


JP3 

CMR 

$R5»s2*21F7» 



000777 

01D8 

0980 

0185 



BNE 

<JP2 

B s NOT BH4DLE 


000778 

0 IDA 

7C00 




LDV 

$R71 sQ 



000779 

01DB 

0F80 

OiAE 



B 

<C0N4 



000780 





4 





000781 





* MODIFY LIST 

OF 10 CONTROL WORDS 



00078a 





* 





000783 





* 





000784 





* 





000785 

01DD 

2CF4 



C0N3 

LDV 

$R2 »c-12 

number OF I/O TO be changed 


000786 






CALL 

ZV*IZ 

INITIALIZE TRAPS AGAIN 



01DE 

F6F0 

0001 








OltO 

D380 

0000 

X 


- 




000787 

01E2 

9800 

UAE 



LDR 

SRI#<TMPSTR 

GET FIRSI ADDRESS INPUT % 


000788 

01E4 

DB80 

UAE 



LAB 

SB5 »<CONT1♦12 

POT ADDRESS OF CONTROL TABLt IN $B5 

. 

000789 

01E6 

C870 

003F 


ALL 

LDR 

$R4,sX»3F« 

LOAD MASK TO oLEAR CHANNEL 

/f ' 

000790 

01E8 

9570 

FCOO 



AND 

SRI * sZ•FCOO• 

CLEAR SUBCH. 6 function 

• 

000791 

01EA 

C525 




AND 

SR4,SB5.SR2 

CLEAR CHANNEL 

V 1 '' 

000792 

01EB 

9454 




OR 

SRI »s$R4 

PUT CHANNEL NUMBER IN 


000793 

01EC 

9F25 




STR 

SR I » SB5 • $R2 

STORE IT BACK IN CONTROL TABLE 


000794 

01ED 

27F9 




B1NC 

SR2 * >ALL 



000795 





* 





000796 





* ASK FOR LOOP MODE - C = CONNECTOR LOOPt A s LInE ADAPT 


000797 





* 





000798 

01EE 

8700 

117E 


OSTR 

CL 

<OFLG 

CLEAR ’’QUICK FLAG” 


000799 

OiFO 

8700 

117F 



CL 

<PFLAG 

CLEAR PRINT FLAG 


000800 

01F2 

8700 

1184 



CL 

<XLU0P 

CLEAR EXT LOOP FLAG 


000801 

01F4 

8700 

1185 



CL 

<CBLOOP 

CLEAR CONNECTOR LOop FLAG 


000802 





RUTBG 

CALL 

ZVSQC *MESG2 

ASK FOR MODE 



01F6 

FBCO 

0003 








01F8 

D380 

0000 

X 







01FA 

OF 80 









OIFB 

1 IDE 








000803 






CALL 

ZV$IA *MASK ♦ TPR 




01FC 

FBCO 

0003 








01FE 

D380 

0000 

X 







0200 

0F80 









0201 

1176 









0202 

1177 








000804 

0203 

9800 

1177 



LDR 

SRIt<TPR 

GET INPUT 


000805 

0205 

1048 




SQR 

$R i * 8 



000806 

0206 

9970 

0043 



CMR 

SR 1 * = X 1 43• 

C 


000807 

0208 

OFOO 

01F6 



NOP 

<RUTBG 



000808 

020A 

0980 

0210 



BNE 

<RUT 1 



000809 

020C 

8A80 

1185 



INC 

<CBLOOP 

SET CONNECTOR LOOP FLAG 


000810 

020E 

OF 80 

023E 



B 

<RUT4 



000811 





# 





000812 

0210 

9970 

0041 


RUT 1 

CMR 

SRlj?X»4P 

A 


000813 

0212 

0900 

023E 



BE 

<RUI 4 



000814 

0214 

9970 

0045 



CMR 

$Rl*=X»45* 

E 


000815 

0216 

0980 

021C 



BNE 

<RUTEND 



000616 

0216 

8A80 

1184 



INC 

<XLOOP 

SET EXIEKNAL 600P FLAG 


000817 

021A 

OF 80 

023E 



B 

<RUT 4 



000618 





* 





000819 

02 It 

OFOO 

0210 


RUTEND 

NOP 

<RUT1 



000820 

02 IE 

9970 

0051 



CMR 

$R1 *=fX* 51 1 

(Q)UICK PASS 


000821 

0220 

0980 

0226 



BNE 

<RUTBGA 



000822 

0222 

8A80 

117E 



INC 

<QFLG 



000623 

0224 

0F80 

01F6 



B 

<RUTBG 



000824 

0226 

9970 

0050 


RUTBGA 

CMR 

SRI t = X* 50* 

P 


000625 

0228 

0980 

022E 



BNE 

<RUTBGB 



000626 

022A 

8A80 

I17F 



INC 

<pflag 

SET TO PRINT TEST LABLE$ 


000627 

02 2 C 

0F81 

FFC9 



B 

rutbg 



000628 

022E 

9970 

0049 


RUTBGB 

CMR 

SRI * sX • 49 1 

I 


000629 

0230 

0900 

0105 



BE 

<RESTRT 



000830 





# 





000631 






CALL 

ZVST CfNOGO 

INVALID 



0232 

FBCO 

0003 






m \ 


0234 

D380 

0000 

X 





8 ■ 


0236 

0F80 







\ y 


0237 

023A 








000632 

0238 

OF 81 

ffbd 



B 

RUTdG 



000833 





# 









9 


TITLE DCMS3* 

•REV A* 




000834 

023A 

494E 

5641 4C49 

NQGO 

TtXT 

• invalids* 


023D 

4424 





G0Q835 




* 



000836 

023E 

9870 

2A2A 

RUT4 

L DR 

SRI ,=A***» 

000837 

0240 

9F00 

UEA 


STR 

SRI, <ERMG+1 

000836 

0242 

FBCO 

0003 


CALL 

2VSTC,MESG3 


0244 

D380 

0000 X 





0246 

0F80 






0247 

0250 





000839 

0248 

8753 



CL 

= SRi 

000840 

0249 

C380 

OEDO 


LNJ 

$B4,<FLN 

000841 

024B 

0000 



HLT 


000842 

024C 

E380 

0C9A 


LNJ 

SB6,<PREV 

OOOtf43 

024E 

0F80 

0253 


b 

<5TLOOP 

000844 

0250 

4D4C 

4350 2020 

MESG3 

TEXT 

•MLCP • 

000645 




# 



000o46 




# 



000847 




* JUMP 

TABLE 

FOR TESTS 

000848 




# 


000849 




# 



000650 

0253 

9800 

0250 

STLOOP 

LDR 

$R1,<N0P 

000851 

0255 

9F00 

OOFF 


STR 

SRI ,<STOP 

000852 

0257 

8700 

1179 


CL 

<LQOP 

000853 

0259 

8700 

1199 


CL 

<SEC 

000854 

000855 

025B 

8700 

1198 

# 

CL 

<TTUT 

000856 

025D 

OF 76 


NOP 

NUP 

>STlOOP 

000857 

025E 

E380 

02DE 

HDTSA 

LNJ 

SB6,<TQN-AA 

000858 

0260 

0F7E 



NOP 

>HDTSA 

000859 

0261 

E380 

02F1 


LNJ 

SB6,<LPTS-A 

000860 

0263 

0F7B 



NOP 

>HDTSA 

000661 

0264 

E380 

07EE 


LNJ 

SB6,<SPED-W 

000662 

0266 

0F78 



NOP 

>HDTSA 

000663 

0267 

E380 

0384 


LNJ 

SB6, <CBLP"*E 

000664 

0269 

QF75 



NOP 

>HDT SA 

000665 

026A 

9800 

1192 


LDR 

SRI ,<SPEED 

000666 

026C 

9970 

1770 


CMR 

SRI , = 6000 

000667 

026E 

0201 

0006 


bL 

LOSPD 

000666 

0270 

1C01 
9 POO 



LDV 

SRI,*i 

000669 

0271 

1161 


STR 

SRI,<SPFLG 

000670 

000671 

0273 

OF 80 

02B7 

* 

B 

<HSPD 

000672 

0275 

8700 

1161 

LOSPD 

CL 

<SPFLG 

000673 

0277 

E380 

0312 


LNJ 

$B6,<LPTS-B 

000674 

0279 

027A 

OF 6 5 



NOP 

>hdtsa 

000675 

E380 

032D 


LNJ 

$B6, <LPT*"BA 

000876 

027C 

0F04 



NOP 

>$ + 4 

000877 

027D 

E380 

034E 


LNJ 

$b6,<LPTS-C 

000676 

027F 

0F5F 



NOP 

>HDISA 

000679 

0280 

E380 

0369 


LNJ 

SB6,<LPTS-D 

000880 

0282 

0F5C 



NOP 

>HDTSA 

000681 

0283 

E380 

0408 


LNJ 

SB6,<TRAN"F 

000682 

0285 

0F59 

042E 


NOP 

>HDTSA 

000683 

0286 

E380 


LNJ 

$B6,<SUP-G 

000684 

0288 

0F56 



NOP 

>HDTSA 

000685 

000886 

0289 

E380 

044B 

* 

LNJ 

$B6,<PRT“GA 

000887 

028b 

OF53 



NOP 

>HDTSA 

000688 

000689 

028C 

E380 

04B6 

* 

LNJ 

$B6,<MULT-H 

000690 

028E 

OF 50 



NOP 

>HDTSA 

000691 

028F 

E380 

0408 


LNJ 

S66,<MULT~I 

000692 

0291 

OF04 



NOP 

>S*4 

000693 

0292 

E380 

04FB 


LNJ 

SB6 ,<MUL*"I A 

000894 

0294 

0FQ4 



NOP 

>$’♦’4 

000695 

0295 

E360 

051E 


LNJ 

SB6,< TERM—J 

000696 

000697 

0297 

OFO1 

0001 

* 

NOP 

S + 2 ~ 

000696 

0299 

E380 

0593 


LNJ 

SB6,<MULT~L 

000899 

029b 

0F04 



NOP 


000900 

Q29C 

E380 

05B6 


LNJ 

$B6,<UND1-K 

000901 

029E 

OFO 4 



NOP 

>$♦4 

000902 

029F 

E380 

05D1 


LNJ 

SB6,<RCV~EA 

000903 

02A1 

0F04 



NOP 

>$♦4 

000904 

02A2 

E380 

05 FO 


LNJ 

$B6,<RCV~EB 

000905 

02A<» 

0F04 



NOP 

>$♦4 

000906 

02A5 

E380 

060F 


LNJ 

SB6,<RCV—EC 

000907 

02A7 

0F2A 



NOP 

>PSPT 

000908 

02A8 

E380 

Q62E 


LNJ 

$B6,<RCV—ED 

000909 

02 AA 

OF27 



NOP 

>PSP) 

000910 

000911 

02AB 

E380 

064D 

# 

LNJ 

$B6,<TFR-M 

000912 

02AD 

0F04 



NOP 

>$♦4 

000913 

02AE 

E380 

077F 


LNJ 

SB6, <RCV"*EN 

000914 

02B0 

0F21 



NOP 

>PSPT 

000915 

0261 

E360 

07A4 


LNJ 

$B6,<RCV~E0 

000916 

02B3 

OF 1E 



NOP 

>PSPT 

000917 

02B4 

E380 

07C9 


LNJ 

SB6,<RCV"EP 

000916 

Q2B6 

OF IB 



NOP 

>PSPT 

000919 

02B7 

E380 

0817 

HSPD 

LNJ 

$B6,<RAN-RD 

000920 

02B9 

0F04 



NOP 

>$♦4 

000921 

02BA 

8980 

1161 


CM2 

<SPFLG 

000922 

02BC 

0300 

02C0 


BG 

<BYPSS 

000923 

000924 

02 bt 

E380 

0856 

* 

LNJ 

SB6,<PCRC—X 

000925 

0200 

0F04 


BYPSS 

NOP 

>$♦4 

000926 

02 C1 

8A80 

1179 


INC 

<LOOP 

000927 

02C3 

8980 

117E 


CM2 

<QFCG 

000926 

02C5 

0980 

01EE 


BNE 

<QSTR 

000929 

02C7 

OFOA 


NOP 

>PSPT 

000930 

02C8 

8980 

0000 X 


CM2 

<2VSTTY 

000931 

02CA 

0981 

0006 


BNE 

PSPT 

000932 

02 CC 

1C00 



iiR 

B 

SRl,sO 

000933 

02CD 

9FO0 

OOFF 


SRI,<STOP 

000934 

02CF 

OF80 

OOFF 


<5T OP 

000935 



PSPT 

CALL 

2V$TC,PASMSG 


8§BI 

ola8 

0003 

0000 X 





02D5 

OF 80 






02D6 

02DB 





000936 

02D7 

8A80 

1182 


INC 

<PASSC 

000937 

02D9 

0F80 

OOFF 


B 

<STQP 


PAGE 


PRINT MLCP 


PINO ACTIVE UNE NUMBER 

impossible, indicates no bbholc 

PRINT FIRMWARE REV NUMBER 


SET LOOP COUNT TO Q 

seconds 


TURN ON IESTS 
SIMPLE DATA LOOP 
DO SPEED TEST. 

CONNECTOR LOOP STATUS TEST 
GET SPEED/10 
B s LOW SPEED 
SET FLAG FOR 72 KB 

5 BIT CHAR 

70 CHAR, 5 BIT MODE 

6 BIT CHAR. 

7 BIT CHAR 
TRANSPARENCY TEST 1 

TEST SUPERVISuRY CONTROL BIT 

TCB, CPX* AFX TESTS 
INCLUDES TESTS GA TO GR. 

2 FRAMES BACK TO BACK 

2 FRAMES, FLAuS BETWEEN 

2 FRAMES, DELAYED TRANSMISSION MODE 

SINGLE FRAME TERMINATION TESTS 
INCLUDES TESTS JA TO JK 

2 FRAMES, ABORTS BETWEEN 

underun, abort TEST 1 

RECEIVE END TtST 1 
RECEIVE END TbST 2 
RECEIVE END TtST 3 

receive end test 4 
DO two frame tests 

INCLUDES TESTS MA - M7 
RECEIVE END TeST 
receive END TeST 
RECEPVE END TeST 

random DATA test 


b s 72 Kb 

PARTIAL BYTE* CRC TEST 

BUMP L00PC0UNT 
CHEC QUICK FLAG 
B = QUICK PASS 

CHECK IF TTY ON SYSTEM 
B s IS CUNSOLt 

INSERT EOP HALT 


BUMP PASS COUNT 





TITLE PCMS3* *REV A« 
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00093© 

000939 

000940 

000941 

000942 

000943 

000944 

000945 

000946 

000947 

000948 

000949 

000950 

000951 

000952 

000953 

000954 

000955 

000956 

000957 

000956 

000959 

000960 

000961 

000962 

000963 

000964 

000965 

000966 

000967 


000966 

000969 

000970 

000971 

000972 

000973 

000974 

000975 

000976 

000977 

000976 

000979 

000980 

000981 

000982 

000983 

000984 

000985 

000986 

000987 

000988 

000989 

000990 

000991 

000992 

000993 

000994 

000995 

000996 

000997 

000998 

000999 

001000 

001001 

001002 

001003 

001004 

001005 

001006 

001007 

001008 

001009 

001010 

001011 

001012 

001013 

001014 

001015 


5041 5353 2024 


9870 4141 
9F00 11EA 

8700 116A 
A380 0AF2 


PASMSG TEXT •PASS $• 

# 

* INITIAL TURN UN TESTS 

* 


TQN-AA LDR 
STR 


9870 2041 
9F00 11EA 

FBCG 0003 
0380 0000 
OF 80 
1800 
1170 

8^00 1174 
AB8Q 0307 
AF60 OECF 
C380 0080 

A380 08C0 
OOOC 


$R1t»A* AA* 
$Ri*<ERMG+i 

<CHSZ 

$B2*<TQNTST 

X»C» 

x*c» 

X»C« 

X f 45 # 

X* 80* 

0 

0 

<SD6 

5 

X»60* 


a#*########**####*######### 

* - SIMPLE DATA TEST 

# 

LPTS-A LOR $R1»sA* A* 

STR 3>Rl*<ERMG+l 


REPORT TEST SECTION 

SET FOR 8 BIT BYTEs 
INITIAL TURN UN TEST 
KCV CONFIG* 6 BITS? LR 6 
XMIT CONFIG* 6 BITS* LR7 
FILL MODE* ABuRT IDLE 
LR2* TEST* XMIT ON 
ACTION FLAG 

DATA AOpRESS 
RANGE 

LAST BLOCK* VALID 


######**##***####******#********#*#*#*#***#* 


OIK *<CKPIVj-*i 

CALL ZV$F*SDB*PAT*( 


<HEAD 
SB2 *<PAR1 
$B2 *<PARPTR 
$B4 *<GHEAD 

$B2 *<LPTS 
sX*C* 

X»C* 

X*C» 

sX»47* 

X*0* 

0 

0 

<SDB 

16 

X * 60 * 


REPORT TEST 

FILL 8 WORDS QF 0303 


CLEAR HEADER FLAG 

STORE PARAMETER POINTER 
GENERATE HEADER 

LOOP TEST 

LR6* RCV CFG* 8 BITS 

l 4li $? aj e : VokVlOLE 

KCV * xmit ' TE5T 

RCV ACTION FRAME, CHAR 
XMIT ACT FRAME* CHAR 
DATA 
RANGE 

LAST BLOCK* VALID 


0311 

8386 



UMP 

$B6 





* 

* LOOP 

TEST 

B - 5 BIT CHARACTERS* 

ASCENDING DATA 

0312 

9870 

2042 

LPTS-B 

LDR 

$R1*=A« B* 


0314 

9F00 

11EA 


STR 

$R1*<ERMG*1 

REPORT TEST 

0316 

6380 

0D3D 


LNU 

$B3*<FACDTA 

FILL ASCENDING DATA 

0318 

AB80 

0322 


LAB 

Sb2 *<PAR2 


031A 

AF80 

OECF 


STB 

$B2 *<PARPTR 


031C 

8700 

1174 


CL 

<HEAD 

CLEAR HEADER FLAG 

031£ 

C380 

0D80 


LNU 

$B4,<GHEAD 

GENERATE HEADER 

0320 

A380 

08CD 


LNU 

$B2 *<LPTS 


0322 

0000 


PAR2 

DC 

0 

5 BITS* LR6* RCV 

0323 

0000 



DC 

x*o* 

5 BITS* XMIT* LR7 

0324 

0000 



DC 

0 

FILL MODt = A&QRT 

0325 

0047 



DC 

• X*47* 

LR2 - KCV* XMIT* TEST 

0326 

0000 



DC 

X»0* 

ACTION FLAG 

0327 

0000 



DC 

0 

rcv action frame* char 

0328 

0000 



DC 

0 „ 

XMIT ACT FRAME* CHAR 

0329 

1800 



DC 

<SDB 

DATA 

032A 

0020 



DC 

X 1 20 * 

RANGE 

032B 

0060 



DC 

X*60* 

LAST * V 

032C 

8386 


# 

UMP 

SB6 





* 

* TEST 

USING 

5 BIT CHAR AND RANGE 

> FIFO LENGTH 


001016 

001017 

Q32D 

9870 

4241 

001016 

001019 

032F 

9F00 

11EA 

0331 

FBCO 

0003 


0333 

D360 

0000 


0335 

0F80 



0336 

1800 



0337 

117D 



0338 

1190 


001020 

0339 

AB80 

0343 

001021 

033B 

AF80 

OECF 

001022 

033D 

8700 

1174 

001023 

033F 

C380 

QD80 

001024 

001025 

0341 

A380 

08CD 

001026 

0343 

0000 

001027 

0344 

0000 


001026 

0345 

0000 


001029 

0346 

0047 


001030 

034/ 

0000 


001031 

0348 

0000 


001032 

0349 

0000 


001033 

034A 

1800 


001034 

034b 

0046 


001035 

034C 

0060 


001036 

001037 

001038 

Q34D 

8386 



LPT-BA LDR 
STR 
CALL 


LNU 

PAR3 DC 


$R1**A*BA* 

$R1,<ERMG+1 
4V$F,SDG*PAT*C7Q 


SB2 *<PAR3 
$B2 *<PARPTR 
<HEAD 

$B4*<GHEAD 

$B2 *<LPTS 
*X*0« 

0 

0 

cX»47* 

X*0* 

0 

0 

<SDB 

70 

X«60» 


REPORT TEST 

FILL 70 WORDS OF 0303 


£^iLVt A ^ AG 

LR6* RCV f CFG* 5 BITS 
LR7* XMIT , 5 BITS 
FILL STATE* AdORT IDLE 
LR2 CONTROL, RCV* XMIT* TEST 
ACTION FLAG 

RCV ACTION FRAME* CHAR 
XMIT ACT FRAME* CHAR 
DATA 
RANGE 

LAST BLOCK* VALID 


JMP 






TITLE DCMS3* 

•REV A* 
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001039 




* 




001040 




* LOOP 

TEST 

C - 6 BIT CHAR, ASCENDING DATA 

00 ] 

L041 




* 




oo 3 

104* 

034£ 

9870 

2043 

LPTb-C 

Wh 

$K1,sA• C» 


001043 

03*50 

9F00 

11EA 


$Rl,<ERMG*i 


001044 

Q01045 

0352 

8380 

0D3D 

* 

LNJ 

$B3,<PACDT A 

FILL ASCtNDING DAJa 

001046 

0354 

AB80 

035E 


LAB 

$82,<PAR4 


001047 

0356 

AF80 

OECF 


STB 

$B2,<PARPTR 


001048 

0358 

8700 

1174 


CL 

<HEAD 

CLEAR HEADER FLAG 

001049 

001050 

035A 

C360 

0D80 

# 

LNJ 

$B4,<GHEAD 

GENERA1 £ HEADER 

001051 

035C 

A380 

08CD 


LNJ 

$B2,<LPTS 


00105* 

035E 

0004 


PAR4 

DC 

4 

6 , BITS, RCV LR 6 

6 BITS* LR7, XMIT 

001053 

035F 

0004 



DC 

X * 4 * 

001054 

0360 

0004 



DC 

4 

FILL MUDE, ABORT 

00 ] 

1055 

0361 

0047 



DC 

sX * 47• 

LR2, RCV* XMIT* TEST 

001056 

0362 

ooog 



DC 

X»0» 

ACTION FLAG 

001057 

0363 

0000 



DC 

0 

RCV ACI1UN FRAME. CHAR 

00 ] 

1056 

0364 

0000 



DC 

0 

XMIT ACT FRAMt, CHAR 

00 ] 

1059 

0365 

1800 



PC 

<SDb 

DATA 

001060 

0366 

0040 



DC 

-X•40• 

RANGE 

001061 

00106* 

0367 

0060 


* 

DC 

X • 60 • 

LAST,V 

001063 

0368 

8366 



JMP 

$B6 


no i 








001065 




# 




001066 




* LOOP 

TEST 

P - 7 BIT CHARACTERS, 

ascending data 

001067 




# 




001066 

0369 

9^00 

2044 

LPTS-D 


$R1 * = A• P» 


001069 

0360 

11EA 


$Rl,<ERMGfl 

REPORT 

001070 

0360 

8380 

OD3D 


LNJ 

$B3,<FACPT A 

PILL ASCENDING DATA 

00 ] 

1071 




* 



00 J 

107* 

036F 

AB80 

0379 


LAB 

STB 

$B2 *<PAR5 


001073 

0371 

AF80 

OECF 


$B2,<PARPTR 


001074 

001075 

0373 

0375 

8700 

C380 

1174 

0D8Q 


CL 

LNJ 

<HEAP 

$B4,<GHEAP 


00 ] 

(.076 




* 



00 J 

[077 

0377 

A380 

08CD 


LNJ 

$B2,<LPTS 

LOOP TEST 

001076 

0379 

0008 

PAR5 

PC 

8 

7 BITS* LR6, RCV 

001079 

037A 

0008 



DC 

X • 8 * 

7 BITS* LR7, XMIT 

001080 

0370 

0008 



PC 

8 

ABORT IDLE, LAST * 7 BITS 

001081 

037C 

0047 



PC 

X * 47 1 

LR2* RCV* XMIT* TEST 

00108* 

0370 

0000 



PC 

x*o» 

ACTION FLAG 

001083 

037E 

0000 



PC 

0 

RCV ACTION FRAME* CHAR 

001084 

037 F 

0000 



PC 

0 

XMIT ACT FRAME * CHaR 

001085 

0380 

1800 



PC 

<SDb 

DATA 

00 ] 

1086 

0381 

0080 



PC 

X * 80 • 


00 ] 

[08 7 

0382 

0060 



PC 

X * 60 * 

LAST * V 

00 ] 

1088 




* 




00 ] 

00 ] 

1089 

L090 

0383 

6386 


Ht-tt t- r 

JMP 

3»B6 


00 ] 

L091 




* 




00 ] 

109* 




* CONNECTOR 

LOOP STATUS TEST 


OOJ 

1093 




* 




00 j 

L 094 




* SEE THE 

PROGRAM HEADING FOR A 

DESCRIPTION OF LOOP-BACK 

00 , 

1095 




* CONNECTORS FOR BH4DL0 AND BH40LE* 

00 . 

L096 




* 




OOJ 

1097 




* 




00 J 

1098 




* IN 

THE 

TEST A CHANNEL PROGRAM 

is set up which outputs the 

00 ] 

L099 




* FOLLOWING 4 VALUES TO LR2, 

00 ] 

L100 




* 




00 ] 

uoi 




* 

X«0Q» , X•80•,X * 40•,X*3C» 


00 ] 

1102 




# 




OOJ 

1103 




* THE FOLLOWING VALUES ARE INPUT 

FROM LK5, 

OOJ 

1104 




# 




OOJ 

L105 




* 

8H4QLP 00,10,EO,Q 


00 ] 

L106 




* 

8H4PLE 00,90*60,0 


00 ] 

1107 




* 




OOJ 

1108 




* 




00 ] 

1109 

0384 

9870 

2045 

C6LP-E 

LPR 

$Rl,sA* E* 


OOJ 

1110 

0386 

9 FOO 

11EA 


STR 

$R1,<ERMG*1 

REPORT TEST 

OOJ 

UU 

0388 

8F00 

2063 


SAVE 

<SAvMAJ,52*0002* 

SAVE B6 



038A 

0002 






001112 




* 




OOJ 

1113 

0380 

9800 

1185 


LPR 

$R1,<CBL00P 
$R1,<CBLP1 

B^ANbil N IF''THERb U I^ A L C<5 n«ECT0R LOOP 

003 

L114 

0380 

1980 

0393 


8 NEZ 

001115 

038F 

6F80 

2063 

CBLP8 

RSTR 

<SAVMAJ,s2*0002» 



0391 

0002 






001116 

001117 

QOiIia 

0392 

8386 



JMP 

$B6 

EXIT TEST* NO CONNECTOR COOP 

0393 

C380 

2000 

CBLP1 

LNJ 

$B4,<PLB 

PRINT TEST LAoLE 

001119 

0395 

8753 



CL 

s$R3 

SET FOR CHANNEL 0 

001120 

0396 

C380 

OEDO 

CBLP2 

LNJ 

$B4,<FLN 

FIND ACTIVE LINE 

NO MORE LINES 

001121 

0398 

OF F7 



8 

>CBLP8 

001122 

001123 

0399 

C380 

OEEC 

# 

LNJ 

$B4,<GENIT* 

DO GENERAL INITIALIZE 

003 

L124 




* SEND 

OUT i 

CHANNEL PROGRAM 


00 

1125 




* 




001126 

0390 

3B80 

039E 


BGPD 

$R3,<CBLP7 

BRANCH IF XMIT CHANNEL 

001..27 

0390 

8AD3 



INC 

= $R3 

MAKE XMIT CHAN 

001 .28 

0390 

9380 

1095 

CBLP7 

bc J 

$B^<50A T A 


001 .29 

03A0 

139A 

channel program 

001..30 

03A1 

Q04E 



PC 

(CCP5-CCP4)*2 

range 

001.31 

03A2 

0200 



PC 

X' 200• 

RAM ADDRESS 

001132 

001133 

001134 

Q3A3 

0000 



PC 

0 

EVEN CPU ADDRESS 

03A4 

8F00 

1177 


STR 

$R3* <TPR 


001.35 




* 



00i:.36 




* SEND 

OUT 1 

DATA FUR CHANNEL PROGRAM IF BH4DLE 

003 

1137 




* 




003 

1136 

03A6 

3042 



SOR 

$R3 * 2 

GET LA NUMBER 

001139 

03A7 

9830 

UB9 


LPR 

$R1,<ATLT *$R3 

GET ID 

001140 

G3A9 

9F00 

1160 


STR 

$R1,<DEVID 


001141 

03A0 

8800 

w 


LPR 

$R3 ,<TPR 


001142 

03A0 

9970 


CMR 

$Rl*sZ»21F7* 


001143 

03AF 

0905 



BE 

>CHLPY 

B s BH4DLE 

003 

1144 




# 




003 

1145 

0300 

8380 

10EB 


LNJ 

$B3,<SETLCT 


001146 

0302 

03F8 



PC 

<LCT 9 

LCT FOR BH4DLP 

001147 

0383 

0F84 



8 

>CHLPX 

001148 

0304 

8380 

10E8 

CHLPY 

LNJ 

^f!8 ETUCT 


001149 

0386 

03FD 


DC 

LCT FOR 8H4DLE 
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00X150 
0QU51 
001X52 
001153 
001154 
001155 
001156 
001157 
001158 
001159 
001160 
001161 
001162 
001163 
001164 
001168 
001166 
001167 
001166 
001169 
001170 
001171 
001172 
001173 
001174 
001175 
001176 
001177 
001178 
001179 
001180 
001181 
001182 
001183 
001184 
001185 

001186 

001187 

001188 

001189 

001190 

001191 

001192 

001193 

001194 

001195 

001196 

001197 

001198 

001199 

001200 

001201 

001202 

001203 

001204 

001205 

001206 

001207 

001208 

001209 

001210 

001211 

001212 

001213 

001214 

001215 

001216 

001217 

001218 


001241 

001242 

001243 

001244 

001245 

001246 

001247 

001246 

001249 

001250 

001251 

001252 

001253 

001254 

001255 

001256 

001257 

001258 

001259 

001260 

001261 


0367 

0369 

03BA 

0366 

Q3BD 

03BE 

03BF 


8S£1 

03C5 

03C7 

03C8 

03CA 

03CC 

03CE 

03CF 

03D0 

03D2 


03P4 

0306 

03D8 

03DA 

03D6 

03DD 

03DE 

03DF 

0360 

03E2 

03E4 

03E5 

03E7 

03E9 

03EA 

03EB 

Q3ED 

03EE 


03F0 
03 F1 
03F2 
03F3 


03F4 
03P5 
03F6 
03 F 7 


03F8 

03F9 

03FA 

03F6 

03FC 




* SEND 

OUT 

CHANNEL PROGRAM 

START 

6380 

10EB 

CHLPX 

LNU 

$83 *<SETLCT 


0402 


£ 

DC 

<LCT 6 


8751 


CBLP9 

CL 

= $Ri 


C380 

OFOB 

CBLP5 

LNJ 

$B4,<CHCT 

1 

0F82 



B 

>$♦2 


4000 



DC 

2*4000* 


C380 

1067 


LNJ 

$84,<DLAYLG 




* READ 
£ 

DATA 

SET STATUS 


9B80 

03F0 


LAB 

$Bi,<DS-SB 
$R2,<DEV1D 


A800 

U6D 


LDR 

< 

A970 

21F6 


CMR 

$R2,»Z * 21F6 * 


0903 



BE 

>CUK 

1 

9B80 

03F4 

* 

LAB 

$B1 ,<DS**SB1 


C380 

D570 

0F9E 

CUR 

AND 

$B4*<DSSTA 


F700 


$R5,sZ*F700* 


6811 



LDR 

$R6,$B1.$R1 

i 

D956 



CMR 

$R5,»$R6 


0900 

03D4 


BE 

<CBLP-3 

i 

E3C0 

OBDB 

£ 

LNJ 

$B6,ERRDB 

i 



* READ 

ft 

LCT 

STAT - CHAN PROG 

SETS B1 

C800 

BFOO 

UAB 

1177 

CBLP-3 

LDR 

STR 

$R4,<CQNT10 
$R3,<TPR 


3B00 

03DB 


BEVN 

$R3,<CBLP6 

i 

88D3 



DEC 

-$R3 


C380 

gees 

CBLP6 

LNJ 

$B4,<CGSCH 

i 

8055 

0054 



IQ 

s$R5,s$R4 


0703 



BIOT 

>$+2*$AF 


E380 

OFBA 


LNJ 

$B6,<ERRMB 


B800 

1177 


LDR 

$R3,<TPR 

i 

8756 



CL 

s$R6 


5900 

03E9 


bez 

$R5,<CBLP4 


E3CQ 

0BC6 

4 

LNJ 

$B6,ERRDB 

i 

WRONG 

8AD1, 


CBLP4 

INC 

*$R1 

1D04 



CMV 

$Rl,s4 


0201 

FFCF 


BL 

CBLP5 

1 

3E04 



ADV 

$R3 , -4 

i 

0F60 

0396 


B 

<CBLP2 




* * TABLE OF VALUES TO BE RETURNED 

0000 


DS-SB 

DC 

2 *0000* 


1000 



DC 

2 *1000* 


EOOO 



DC 

2•EOOO * 


0000 



DC 

2 *0* 




* BH4DLE 



0000 


DS-SB1 

DC 

2 *0000* 


9000 



DC 

2*9000* 


6000 



DC 

2*6000* 


0000 


* 

DC 

2 *0000* 


103E 


* 

LCT 9 

DC 

2 *103E• 


E03F 



DC 

2 • E03F * 


0105 



DC 

2*0105* 

1 

0125 



DC 

2*0125* 

1 

0000 


* 

DC 

0 



P01228 


DO CHANNEL CONTROL 

START 10 
225 MS DtLAY 


GET ID 

BRANCH * BH4DLD 


STRIP STATUS 10 PERTINENT BITS 
PICK UP SHOULD BE 

BRANCH IF GOOD 
DATA SET STATUS BAD 

T 5 * 1 IF IT FAILED 

INPUT LCT STATUS 
STORE CHANNEL NUMBER 
BRANCH IF RECEIVE CHANNEL 

FORM FC AND ADDRESS 
INPUT LCT STATUS To R5 

INSTRUCTION WAS NA<•ED 
GET BACK TEST CHANNEL 

ERROR* CHANNEu PROGRAM CUT 


DO FOR NEXT VALUE 
BUMP CHANNEL NUMBER 
TRY NEXT CHANNEL 
(BH4DLD) 


PAUSE DISABLE, 
DITTO, XMIT 


receive 


001220 



* LCT FOR 

BH4DLE 



001221 



* 




001222 

03FD 

903E 

LCT10 DC 

2 * 903E * 



001223 

03FE 

603F 

DC 

2•603F * 



001224 

03 FF 

0105 

DC 

2*0105* 

PAUSE 

DISABLE, 

001225 

0400 

0125 

DC 

2 * 0125 * 

PAUSE 

DISABLE, 

001226 

0401 

0000 

DC 

0 




001229 



* LCT 

table 



0Q1Z3Q 

001231 

0402 

0206 

* 

LCT6 

DC 

2*0206* 

RCV P, MSB 

001232 

0403 

0007 


DC 

2*0007* 

RCV P, LSB 

001233 

0404 

0226 


DC 

2*0226* 

XMIT P, MSB 

001234 

0405 

0027 


B 

2*0027* 

XMIT P, LSB 

001235 

0406 

1037 


Z•1037 * 

BYTE TO INPUT 

001236 

001237 

0407 

0000 

* 

DC 

0 

END OF LIST 

001238 

001239 



* 

#— 




001240 



* 








* TRANSPARE 

NCY TEST, FORCE 1 




* BOUNDRIES 

within message 

0406 

9870 

2046 

TRAN-F 

LDR 

$R1,sA * F* 

040A 

9FOO 

11EA 

**FORM 

STR 

$Rl,<ERMG*l 




DATA 

, FIRST TWO CHAR 




* ROTATING 

PATTERN WITH 0*S 

040C 

9B80 

1800 


LAB 

$B1,<SDB 

040E 

9870 

FFFF 



$Rl,«2•FFFF• 

0410 

9F7 1 



$Ri,+$Bl 

0411 

9870 

FC7E 


LDR 

$R1,-Z * FC7E * 

0413 

2CC0 



LDV 

$R2,s-X*40* 

0414 

9F71 


TRAN! 

STR 

$R1,♦$81 

0415 

1011 



SCL 

$R1,1 

0416 

27FE 



6 INC 

$R2,>TRAN1 

0417 

AB80 

0421 


LAB 

$B2,<PAR6 

0419 

AF80 

OECF 


STB 

$B2,<PARPTR 


10 OCCUR ON ALL BYTE 


REPORT TEST SECTION 


SEND BUFFER ADDRESS 
STORE FIRST TwO CHAR. 
COUNTER 


ROTATE PATTERN 
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0Q1262 

041b 

8700 

1174 


CL 

<HEAD 


CLEAR HEADER FLAG 

001263 

0410 

C380 

0D80 


LNJ 

$B4,<GHEAD 


GENERATE HEADER 

001264 




* 





001266 




# 





001266 

041F 

A380 

08CD 


LNJ 

$B2,<LPTS 


LOOP TtST 

001267 

0421 

oooc 


PAR 6 

DC 

x«o 


LR 6 , RCV, 8 BITS 

001266 

0422 

oooc 



DC 

X 9 c* 


LR7, XMIT 

001269 

0423 

oooc 



DC 

x*c* 


FILL MODE ABORT 

001270 

0424 

0047 



DC 

-X* 47 9 


LR2 CONTROL, RCV, XMIT *TEST 

001271 

0425 

0000 



DC 

X 9 0 9 


ACTION FLAG 

001272 

0426 

0000 



DC 

0 


RCV ACTION FRAME, CHAR 

001273 

0427 

0000 



DC 

0 


XMIT ACT FRAMfc, CHAR 

001274 

0428 

1800 



DC 

<SDb 


DATA ADDRESS 

001276 

0429 

0062 



DC 

X 9 82 9 


RANGE 

001276 

042A 

0060 



DC 

X • 60 9 


LAST, VALID 

001277 




# 





001276 

042B 

OF 00 

0414 


NOP 

<TRAN I 



001279 

0420 

8386 



JMP 

$B 6 



001280 




* 





001281 









001282 




* 





001283 




* 





001284 




************* 



001286 




* TEST G 

- TESTS SOPERVISORY C 

ONTROL BIT IN CONTROL 

001286 




* 


FIELD* THIS BIT SET 

SHOULD OVER IDE THE 7 BIT 

001287 




* 


CONFIGURATION 

GIVEN 

1 TO RECEIVE AND XMIT AND 

001286 




* 


FORCE 8 BIT MODE. 


001289 




* 





001290 

042E 

9870 

2047 

SUP-G 

LDR 

$R1,*A 9 G 9 



001291 

0430 

9FOO 

11EA 


STR 

$Rl,<ERMG *1 


REPORT 

001292 

0432 

9870 

6000 


LDR 

SRI,?Z 9 8000 9 


SET BIT FOR SUPERVISORY FRAME 

001293 

0434 

9F00 

1174 


STR 

$R1,<HEAD 



001294 

043b 

AB80 

0440 


LAb 

$B2,<PAR7 



001295 

0436 

AF80 

OECF 


STB 

$B2 , <PARPTR 



001296 

043A 

B38Q 

QD3D 


LNJ 

$B3,<FACDTA 


FILL ASCENDINu DATA 

001297 




* 





001298 

043C 

C380 

0D80 


LNJ 

SB4,<GHEAD 


GENERA IE HEADER 

001299 




* 





001300 

043E 

A380 

08CD 


LNJ 

SB2 *<LPTS 


LOOP TESI 

001301 

0440 

0008 


PAR7 

DC 

X 9 08 9 


7 BITS* LR 6 , RCV 

001302 

0441 

0008 



DC 

X 9 08 9 


7 BITS, LR7, XMIT 

001303 

0442 

OOOC 



DC 

X*QC 9 


ABORT IDLE, 0 BIT RESIDUE 

001304 

0443 

0047 



DC 

X 9 47 9 


LR2, RCV, XMIT, TEST 

001306 

0444 

0000 



DC 

X 9 0* 


ACTION FLAG 

001306 

0445 

0000 



DC 

0 


RCV ACTION FRAME, CHAR 

001307 

0446 

0000 



DC 

0 


XMIT ACT FRAMfc, CHaR 

001306 

0447 

1600 



DC 

<SDB 


DATA 

001309 

0446 

005 A 



DC 

90 


RANGE 

001310 

0449 

0060 



DC 

X 9 60 9 


LAST,V 

001311 




* 





001312 

044 A 

8366 



JMP 

$S6 



001313 









001314 




* 





001315 




* EXERCISE 

LINE PROTOCOL FUNCTIONS 

001316 




* 





001317 




* 





001318 




* IF 

AN ERROR IS REPORTED 

WITH 

A LABEL H GX", WHERE x IS 

001319 




* ANY CHAR, REFER TO THE 

ENTRY 

IN TABLE "HRO-A" WHICH ENDS 

001320 




* WITH -X 

TO SEE WHAT THE 

TEST 

CONDITIONS ARE. 

001321 




* 





001322 

044b 

8753 


PRT~GA 

CL 

s$R3 


SET FOR CHANNfcL 0 

001323 

044C 

8752 


PRLNLP 

CL 

= $R 2 



001324 




* 





001326 

0440 

91380 

0487 

PRT-LP 

LAB 

$Bl,<PRQ-A 


GET APDRtSS OF TABLE 

001326 

044F 

92ED 



LLH 

$R1,$BI.+SR2 


GET LR t FOR XMIT 

001327 




* 





001326 

0450 

9F00 

047A 

PRT-1 

STR 

SRI,<GLR7 



001329 

0452 

9570 

OOOE 


AND 

SRI,»2 9 OOOE 9 


STRIP 10 BYT l SIZE 

001330 

0454 

9 FOO 

047b 


STR 

$R1,<GLR 8 



001331 

0456 

1041 



SOR 

$R1, i 



001332 

0457 

AB80 

04AD 


LAb 

$B2,<TCBBS2 


GET TCB CONVERSION ADD 

001333 

0459 

C812 



LDR 

$R4,$B2.$R1 



001334 

045 A 

CF51 



STR 

$R4,»$R 1 



001335 

045B 

1008 



SOL 

$R1,8 


TCB SIZE (IF CONFIGURED) 

001336 

045C 

9F00 

1174 


STR 

$R1,<HEAD 



001337 

045E 

92EP 



LLH 

SKI,$B1.+$R2 


GET LR 6 FOR RCV 

001336 

04 5 F 

9F00 

0479 


STR 

$R1,<GLR 6 



001339 

0461 

92ED 



LLH 

$R1,$B1•♦SR2 


GET LCF, AFX INFO 

001340 

0462 

9400 

1174 


OR 

$R 1 ,<HEAD 



001341 

0464 

9F00 

1174 


STR 

$R1,<HEAD 



001342 

0466 

92ED 



LLH 

$R1,$B1 • ♦$R2 


GET TEST LABLt 

001343 

0467 

1982 



BNE2 

$R1,>PRT*2 



001344 

0466 

6366 



JMP 

$B 6 


DONE WITH TEST 

001345 




* 





001346 

0469 

9470 

4700 

PRT-2 

OR 

$Rl, *2 9 4700 9 


PUT IN G 

001347 

046b 

9 FOO 

11EA 


STR 

$K1,<ERMG*1 


STORE IEST LAbLE 

001348 

0460 

AFOO 

077E 


STR 

$R2,<DEX 


STORE INDEX 

001349 




* 





001350 




* GENERATE 

DATA, ASCENDING 



001351 




* 





001352 




* 





001353 




* 





001354 

046F 

B380 

0D3D 


LNJ 

SB3,<FACDTA 


GENERATE DATA 

001355 

0471 

AB80 

0479 


LAB 

$B2,<GLR 6 



001356 

0473 

AF60 

OECF 


STB 

$B2,<PARPTR 



001357 

0475 

C380 

0D80 


LNJ 

$B4,<GHEAD 


GENERATE HEADfcR 

001356 




* 





001359 

0477 

A380 

08CD 


LNJ 

SB2,<LPTS 



001360 

0479 

0000 


GLR 6 

DC 

0 


LR 6 FOR RCV 

001361 

04 7 A 

0000 


GLR7 

DC 

0 


LR7 FOR XMIJ 

001362 

047b 

0000 


GLR 8 

DC 

0 


FILL MUDfc, ABORT IDLE 

001363 

047C 

0047 



DC 

X 9 4 7 9 


LR2,TEST,XMIT ON 

001364 

0470 

0000 



DC 

0 


ACTION FLAG 

001365 

0 4 7 E 

0000 



DC 

0 


RCV ACTION FRAME, CHAR 

001366 

047F 

0000 



DC 

0 


XMIT ACT FRAMfc, CHAR 

001367 

0480 

1800 



DC 

<SDb 


ADDRESS 

001366 

0481 

0100 



DC 

X 9 100» 


RANGE 

001369 

0462 

0060 



DC 

X 9 60 9 


VALID, LAST 

001370 




* 





001371 

0483 

A800 

077E 


LDR 

$R2,<DEX 


GET BACK INDEX 

001372 

0485 

0F60 

044D 


B 

<PRT-LP 



001373 




* 





001374 




* 
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00137|> 

001376 

001377 

001376 

001379 

001380 

001381 

001382 

001383 

001384 

001386 

001386 

001387 

001388 

001389 

001390 

001391 

00139a 

001393 


TABLE OF TESTS FOR 
WORD 1 


001 

001 

001 

001 

001 


394 

396 

396 

397 

398 


001399 

001400 

001401 

ooi4oa 

001403 

001404 

001406 

001406 

001407 

001406 


00145a 
001 < 
001 < 
001 

457 
,456 
,459 
,460 
461 
46a 
,463 
,464 
,465 
,466 
,467 
.466 
.469 
,470 

ooi47a 

001473 

001474 

001476 

001476 

001477 

001476 

001479 

001480 

001481 

00148a 

001483 

001484 

001485 

001486 

0G1487 


0487 
0488 
0489 
048A 
048B 
048C 
0480 
048E 
048F 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 
0496 
0499 
049A 
049B 
049C 
0490 
049E 
049 F 
04A0 
04A1 
04A2 
04A3 
04A4 
04A5 
04A6 
04A7 
04A6 
04A9 
04AA 
04AO 


04A0 

04AE 

04AF 

04B0 

04B1 

04B2 

04B3 

0404 

0405 


0406 

0408 

040A 

04BC 


04BE 

04C0 

04C2 

04C4 

04C6 


04C8 

04CA 

04CB 

04CC 

04CD 

829 

0400 

0401 

0402 

0403 

0404 

0405 

0406 


8866 

0041 

2 C2C 

0042 

2826 

0043 

2020 

0044 

2424 

0045 

4848 

2046 

4444 

3047 

4040 

4048 

4C4C 

5049 

0909 

014A 

0505 

024B 

0101 

044C 

0000 

0540 

E9E9 

544E 

E5E5 

454F 

EDEO 

1150 

E9E9 

2351 

E9C9 

5552 

0000 


0005 

0001 

0006 

0002 

0007 

0003 

0000 

0004 

0000 


9870 2048 
9FOO 11EA 
9870 1100 
9F00 117B 


B380 0D3P 
8700 1174 
AB80 04CA 
AF80 OECF 
C360 0D80 


A360 0A4A 
0008 
0008 
0008 
0047 
0000 
0000 
0000 

1800 

0060 

0040 

1830 

0020 

0060 


04D7 8386 


0408 9870 2049 
040A 9F00 11EA 
04DC 9870 1100 
04DE 9F00 117B 


* 

* 

* 

* 

* 

* 

* 

* 

4 WORD 

* 

* 

* 

* 

PRO-A 0< 
D< 

PRQ-B D< 

D< 

PRQ-C D< 
DC 

PRO-D DC 
D( 

PRO-E D( 
D< 

PRO-F DC 
DC 

PRO-G DC 
DC 

PRQ-H DC 
DC 

PRQ-I DC 
DC 

PRO-J UC 
DC 

PRO"K DC 
DC 

PRO-L DC 
DC 

PRO—M DC 
DC 

PRO-N DC 
DC 

PRQ—0 DC 
DC 

PRQ-P DC 
DC 

PRO-Q DC 
DC 

PRO-R DC 


PROTOCAL TESTS 


BITS 0 
BITS 8 

2 

BITS 0 
BITS 4 
BITS 8 


15 


LR7, 
LR6 * 


XMIT 

RCV 


- 3 

- 7 

- 15 

» 8888 ' 

•0041* 

• 2C2C* 

• 0042' 
•2828' 
•0043' 
• 2020 ' 
•0044* 
•2424' 

• 0045* 

• 4848' 
•2046' 
*4444' 
*3047' 
*4040' 
•4048' 

• 4C4C» 

• 5049* 
•0909* 

• 0I4A* 
•0505 * 
•024B» 

• oioi* 

• 044C • 
' ODOD * 
»054D» 
•E9E9» 
♦544E• 

• E5E5 * 
•454F • 
•EDED* 
*1150* 
•E9E9* 
•2351* 
•E9C9* 
•5552' 


ADDRESS FIELD LENGTH 
ascii E test IDENTIFIER 


CFX* 7 BITS 
TEST GA 
TCB, 8 BITS 
TEST GB 
TCB, 7 BITS 
TEST GC 
TCB, 5 BITS 
TEST GD 
TCB, 6 BITS 
TEST GE 

ADDRESS FIELD EXTENTION 7 BITS 
ADD s 2 BYTES 
AFX, 6 BITS 

3 BYTE ADDRESS FIELD 
AFX, 5 BITS 

4 BYT4S 
AFX, 8 BITS 

LoiU^L CONTROL FIELD TEST, 7 BITS 

1 BYTE LCF 

LCF TEST,6 BITS 

2 BYTE LCF 
LCF, 5 BITS 

4 BYTES 

LCF TEST» 8 BITS 

5 BYTES 

' .. “ SITS 

Jlrl 

" YTE 


? Dll C,-# 

M: l 

ALL FIELDS, 6 
4 BYTE LCF, “ 

Ilf* 1 AFX 


4 

LCF, 5 BYTE AFX 


2,0 


1 


2 LCF, 3 AFX 

tcb on xmit, not receive 

END OF LIST 


* 

* 

* 

TCBBSZ DC 5 

K l 

8£ * 

DC 3 

DC 0 

DC 4 

DC 0 

* 

* TRANSFER AND RECEIVE TWO MESSAGES BACK 10 BACK 

* 

$R1,5A' h« 

$R1,cERMG+1 
$R1,5Z'1100» 

$Rl,<EXST 


CONVERSION TABLE FOR BYTE SIZE CONFIG TO TCB CODE 


0 IS CODE FOR 8 


MULT-H LDR 
STR 
LDR 
STR 

* 

* FORM DATA 

* 

LNO 
CL 
LAB 
STB 
LNO 


REPORT TEST SECTION 
EXPECTED STATUS FLAG 


* 

* 

PAR8 


LNJ 

DC 

DC 

DC 

DC 

K 

DC 

DC 


& 

DC 

* 

JMP 

* 

* 

* 

*-------- 

* 

* 

* TRANSFER, 

* 

MULT-I LDR 
STR 
LDR 
STR 

* 

* 


(ASCENDING) 

SB3,<FACDTA 
<HEAD 
$B2,<PAR8 
3>B2, <PARPTR 
$B4,<GHEAD 


$B2,<RET 
8 
8 
8 

X * 4 7' 

X'O* 

0 

0 

<SDD 
X' 60» 

X' 40 * 

<SDb+X'30* 
X* 20 * 

X' 60 * 

$B6 


FILL SEND BUFFER WITH ASCENDING DATA 
CLEAR HEADER FLAG 


GENERA IE HEADER 


RETURN END TEST 
LR6, RCV 
LR7, XMIT 
FILL WITH ABORTS. 
LR2,RCV, XMIT,TEST 
ACTION FLAG 

RCV ACTION FRAME, CHAR 
XMIT ACT FRAMc, CHAR 


XMIT BUFFER 
RANGE 
VALID BIT 

DATA ADD 2 
RANGE 

LAST* VALID, 


1 


NO DELAY 


RECEIVE 2 FRAMES, FLAGS BETWEEN 


$R1**A* I* 
$R1,<£RMG«-1 
$R1t»Z'1100* 
$R1,<EXST 


8BKU e i?A*§& T Kk 


* FORM DATA (ASCENDING) 
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00148b 




* 





001489 

04EQ 

6380 

0D3D 


LNJ 

$63 *<FACPTA 



001490 

04E2 

8700 

1174 


CL 

<HEAP 


CLEAR HEAPER FLAG 

001491 

04E4 

AB80 

04EC 


LAb 

$62 *<PAR9 



00149* 

Q4E6 

AF80 

OECF 


5T6 

$B2 *<PARPTR 



001493 

04E8 

C380 

0D80 


LNJ 

$64 * <GHEAD 


GENERA IE HEAPER 

001494 




* 





001495 




# 





001496 

04EA 

A380 

0A4A 


LNJ 

$62 *<RET 


RECElVt END TcST 

001497 

04EC 

000* 


PAK9 DC 

4 


LR6 * RCV 

001498 

04E0 

000* 



PL 

4 


LR7 , XMIT 

001*99 

04EE 

0084 



PC 

X * 84 • 


FILL WITH FLAgS 

001500 

04EF 

0047 



PC 

=X•47 1 


LR2 CONTROL. KCV. XMIT* TE&T 

001501 

04F0 

0020 



PC 

X * 20 * 


ACTION FLAG* PELAY BETWEEN FRAME5 

00150* 

04F1 

0000 



PC 

0 


RCV ACTION FRAME* CHAR 

001503 

04F* 

0000 



PC 

0 


XMIT ACT FRAME* CHAR 

001504 

04F3 

1800 



PC 

<SPb 


SENP BUFFER 

001505 

04F4 

0010 



PC 

X»10* 


RANGE 

001506 

04F5 

0040 



PC 

X • 40 • 


VALID 

001507 




* 





001508 

04F6 

1808 



PC 

<SDb*X•8• 


ADD* *NP CCB 

001509 

04F7 

0010 



PC 

X» 10» 


range 

001510 

04F8 

0060 



PC 

X • 60 * 


LAST»VALID# 

001511 




# 





00151* 

04 F 9 

0 F 5 F 



NOP 

>MULT-I 



001513 




* 





001514 

001515 

04 FA 

8386 



JMP 

$66 


EXIT TEST 

001516 




* 





001517 




* 





001518 




* 

TRANSFER* 

RECEIVE 2 FRAMES 

, FLAGS BETWEEN* PELAYEP XMIT OF XMIT FIFO 

001519 




# 





0015*0 




* 





001521 

04R8 

9870 

4941 

MUL-IA LDR 

$R1 * 5A'IA * 



00152* 

04F0 

9F00 

11EA 


STR 

$R1 * <ERMG+l 


REPORT TEST SECTION 

001523 

04 FF 

9870 

1100 


LPR 

$R1 * =Z•1100 * 


EXPECTtD STATUS FLAG 

001524 

0501 

9F00 

1176 


STR 

$R1 * <EXST 



001525 




# 





001526 




* 





001527 




* 

FORM DATA 

> (ASCENDING) 



001528 




* 





001529 

0503 

6380 

QD3D 


LNJ 

$63 * <FACPTA 



001530 

0505 

8700 

1174 


CL 

<HEAP 


CLEAR HEADER FLAG 

001531 

0507 

AB80 

050F 


LAb 

$62 *<PAR9IA 



00153* 

0509 

AF80 

OECF 


STB 

$62 *<PARPTR 



001533 

0508 

C380 

QD80 


LNJ 

$B4 * <GHEAP 


GENERATE HEAOtR 

001534 




* 





001535 




* 





001536 

0500 

A380 

0A4A 


LNJ 

$62♦<RET 


RECEIVE END TeST 

001537 

050F 

0004 


PAR9IA PC 

4 


LR6 * RCV 

001538 

0510 

0004 



PC 

4 


LR7 * XMIT 

001539 

0511 

00C4 



PC 

X»C4» 


FILE WITH FLAvjS * DELAYED XMIT 

001540 

051* 

0047 



PC 

~X * 47 * 


LR2 CONTROL* RCV* XMIT* TEST 

001541 

0513 

0020 



PC 

X * 20 * 


ACTION FLAG* DELAY BETWEEN FRAMES 

00154* 

0514 

0000 



PC 

0 


RCV ACTION FRAME* CHAR 

001543 

0515 

0000 



PC 

0 


XMIT ACT FRAME* CHaR 

001544 

0516 

1800 



PC 

<SPB 


SENP BUFFER 

001545 

0517 

0010 



PC 

X« 10* 


RANGE 

001546 

0518 

0040 



PC 

X 9 40 • 


VALID 

001547 




* 





001548 

0519 

1808 



PC 

<SDb+X*8» 


ADD* 2ND CCB 

001549 

051A 

0010 



PC 

X* I0» 


RANGE 

001550 

051b 

0060 



PC 

X' 60 1 


LAST *VALID* 

001551 




* 





001552 

051C 

0F5F 



NOP 

>MUL*" IA 



001553 




# 





001554 

0510 

8386 



JMP 

$66 


EXIT TEST 

001555 

001556 




* 





001557 




# 





001558 




* 

SINGLE FRAME TERMINATION TESTS 


001559 




* 





001560 




* 





001561 




* 

IN THI 

S TEST FRAMES ARE 

ABORTEP IN VARIOUS STATES WITHIN 

00156* 




* 

THE ADO 

>kess* control* lc 

F* ANP 

TEXT FIELDS* 

001563 




* 





001564 




* 

IF AN E 

RROR IS KEPORTEP 

WITH A 

LABLE "JX* WHERE X IS ANY 

001565 




* 

CHAR* R 

EFER TO THE ENTRY 

IN TABLE "TRWTBL" WrtICH ENDS WITH 

001566 




* 

*X TO FIND THE TEST CONDITIONS, 


001567 




* 





001568 

05 IE 

8752 


TERM-J CL 

s$R* 


INDEX 

001569 




* 





001570 

05 IF 

9680 

056C 

TRMMLP LA6 

$B1*<TRMT6L 


TABLE OF TESTS 

001571 

0521 

92ED 



LLH 

$R1*$B1 •*$R2 


GET XMIT LR7 

001572 

052* 

9F00 

055E 


STR 

$R1*<TRML7 



001573 

0524 

9570 

OOOE 


ANP 

$Rl*s2»000E» 


STRIP TO BYTE SIZE 

001574 

0526 

9F00 

055F 


STR 

$R1,<TRML8 


STORE FOR LAST BYTE 

001575 

05*8 

1041 



SOR 

$R 1 * 1 



001576 




* 

CONVERT FROM MLCP BYTE SI2 

E COPE 

TO TC6 COPE 

001577 

0529 

C810 

04AD 


LPR 

$R4,<TCBBSZ*$R 

l 


001578 

0526 

CF51 



STR 

$R4,s$Rl 



001579 




* 





001580 

052C 

1008 



SOL 

$R1 *8 



001581 

0520 

9F00 

1174 


STR 

$R1*<H£AP 


TCB INFO 

001582 

052F 

92ED 



LLH 

$RI*$Bi.*$R2 


GET RCV LR6 

001583 

0530 

9F00 

0550 


STR 

$R1 * <TRML6 



001584 

053* 

92E0 



LLH 

$R1*$bi• *>$R2 


GET LCF, AFX INFO 

001585 

0533 

9400 

1174 


OR 

$R1 * <HEAP 



001586 

0535 

9F00 

1174 


STR 

$R1 * <HEAP 



001587 

0537 

92ED 



LLH 

$R1*$B!•+$R2 


GET TEST LABLE 

001588 

0538 

1900 

0566 


BE* 

$Rl*<END~J 



001589 

053A 

9470 

4A00 


OR 

$Ri**Z»4AQQ» 


form test j~ 

001590, 

053C 

9F00 

11EA 


STR 

$R1*<ERMG*I 



001591 




* 





001592 

053E 

92EP 



LLH 

$Rli$Bl*+$R2 


FLAG 

001593 

053F 

9470 

0080 


OR 

$R . *«X 1 80• 


PUT IN BIT FOR CCP TO COUNT CHAR 

001594 

0541 

9F00 

0561 


STR 

$R . *<TRMFLG 



001595 

0543 

92ED 



LLH 

$R *$Bl♦*$R2 


XMIT CHAR COUNT 

001596 

0544 

AF00 

077E 


STR 

$R2 *<DEX 


STORE INDEX 

001597 

0546 

9F52 



STR 

$R . *s$R2 



001598 

0547 

9470 

FFOO 


OR 

$R . *-2•FFOO * 



001599 

0549 

9F00 

0563 


STR 

$R f<TRMAC 


FRAME 

001600 

0546 

8252 



NEG 

s$R* 
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QQioOl 
001602 
001603 
001604 
001605 
001606 
001607 
001606 
001609 
001610 
001611 
001612 
001613 
001614 
001615 
001616 
001617 
001618 
001619 
001620 
001621 
001622 
001623 
001624 
001625 
001626 
001627 
001626 
001629 
001630 
001631 
901632 
001633 
001634 
001635 
001636 
001637 
001636 
001639 
001640 
001641 
001642 
001643 
001644 
001645 
00l64o 
001647 
001646 
001649 
001650 
001651 
001652 
001653 
001654 
001655 
001656 
001657 
001656 
001659 
001660 
001661 
001662 
001663 
001664 
001665 
001666 
001667 
001666 
001669 
001670 
001671 
001672 
001673 
001674 
001675 
001676 
001677 
001676 
001679 
001680 
001681 
001682 
001683 
001684 
001685 
001686 
001687 
001686 
001689 
001690 
001691 
001692 
001693 
001694 
001695 
001696 
001697 
001696 
001699 
001700 
001701 
001702 
001703 
001704 
001705 
001706 
001707 
001706 
001709 
001710 
001711 
001712 
001713 


Q54C 

8 AD2 



INC 

= $R2 

SET RANGE = AoORT COUNT 

054D 

A570 

OOFF 

£ 

AND 

$R2,32»Q0FF* 

054F 

OF 04 



NQP 

>$♦4 


0550 

0F04 



NOP 

>$44 


0551 

AFOO 

0565 


STK 

$R2,<TRMRNG 

RANGE 




* GENERATE 

* 

DATA* ASCENDING 


0553 

B380 

0D3D 


LNJ 

$B3*<FACDTA 


0555 

AB80 

055D 


LAB 

$B2*<TRML6 

$B2*<PARPTR 


0557 

Ar 80 

OECF 


STB 


0559 

C380 

0D80 

£ 

LNJ 

$B4»<GHEAD 

GENERATE HEADER 

055B 

A380 

0970 


bt J 

$B2 * <ABUND 

ABORT* UNDERUN TEST 

055D 

0000 


TRML6 

0 

LR6 FQK KCV 

055E 

0000 


TRML7 

DC 

0 

LR7 FOR XMIT „ 

05 5 F 

0000 


TRML8 

DC 

0 

FILL MUDb* ABORT IDLE 

0560 

0047 



DC 

X *47 * 

LR2*TESTt XMIT ON 

0561 

0000 


TRMFLG 

pc 

0 

ACTION FLAG 

0562 

0000 



DC 

0 

RCV ACTION CHAR* FRAME 

0563 

0000 


TRMAC 

DC 

0 

XMIT FRAME* CHAR 

0564 

1800 



DC 

<SDB 

ADDRESS 

0565 

0200 


TRMRNG 

DC 

X *200* 

RANGE 

0566 

0060 



DC 

X 1 60 1 

VALID* LAST 

0567 

A800 

077E 


LDR 

$R2 * <0EX 

RESTORE INDEX 

0569 

0F80 

051F 


B 

<TRMMLP 

DO NEXT TEST 

056B 

8386 


END-J 

JMP 

$B6 



* TABLE FOR TERMINATION TESTS 


* WORD 1 

* BITS 


lilt fc 


7 LR7* XMIT 
15 LR6* RCV 


* WORD 2 

* BITS 0 

* 4 

* 7 


* WORD 3 

* BITS 0 

* BITS 8 


ADDRESS FIELD LENGTH 
LCF LENGTH 
ASCII TEST LABLE 


ACTION FLAG 
ACTION CHAR 


ALL TESTS ARE IN 6 BIT MODE 


* ABORT DURING ADDRESS STATE 

* 


056C 

OCOC 

TRMTBL DC 

2•OCOC * 


8 BIT CHAR 

056D 

0041 

DC 

2*0041 * 


TEST JA 

056L 

02FD 

DC 

2*02FD* 


ABORT* 3 CHAR 



* ABORT DURING ADDRESS FIELD 

EXTENTION 

056F 

OCOC 

TRM-B DC 

2•OCOC * 


AFX* 8 BITS 

0570 

1042 

DC 

2*1042* 


TEST Jb 

0571 

02FC 

DC 

2 * 02FC• 


ABORT* 4 CHAR 



* ABORT DURING ADDRESS FIELD 

EXTENTION* > 32 BITb 

0572 

4C4C 

TRM-C DC 

2*4C4C* 


AFX, 8 BITS 

0573 

3043 

DC 

2*3043* 


3 BYTE AF* TEbT JC 

0574 

02FB 

DC 

2 * 02FB* 


ABORT, 5 CHAR 



* ABORT OURiNO CONTROL F1EL5 

STATE 


0575 

OCOC 

TRM-D DC 

2 * OCOC• 


8 BITS* CFX 

0576 

0044 

DC 

*2*0044* 


TEST JD 

0577 

02FC 

DC 

=2 * 0 2 F C • 


ABORT, 4 CHAR 



* ABORT DURING CONTROL FIELD 

STATE 

» > 32 bjIS 

0576 

4C4C 

TRM-E DC 

2*4C4C* 


CF* AFX 

0579 

3045 

DC 

sZ * 3045 * 


TEST JE 

057A 

02FA 

DC 

2*02FA* 


ABORT* 6 CHAR 



* ABORT DURING EXTENDED CUNTROL FIELD STATE 

057B 

8 C8C 

TRM-F DC 

2 * 8C8C« 


8 BITS* CFX 

057C 

0046 

DC 

2*0046* 


TEST JF 

U57D 

02FB 

DC 

sZ*02FB* 


ABORT* 5 CHAR 



* ABORT DURING TCB STATE 



057E 

2C2C 

TRM-G DC 

2 * 2C2C * 


TCB 

057F 

0047 

DC 

2*0047* 


TEST JU 

0560 

02 FB 

DC 

2•02FB* 


ABORT, 5 CHAR 



* ABORT DURING LCF STATE 



0561 

ODOD 

TRM-H DC 

2•ODOD * 


LCF 

0582 

0446 

DC 

2*0448* 


4 BYTE LCF Tc.ST Jh 

0563 

02 FB 

DC 

2 • 02FB• 


ABORT, 5 CHAR 



* ABORT DURING TEXT STATE 



0584 

OCOC 

TRM-J DC 

2•OCOC• 


8 BITS 

0585 

004A 

DC 

2 * 0Q4A * 


TEST JJ 

0586 

02FB 

oc 

2 * 02 FB» 


ABORT, 5 CHAR 

0587 

0000 

RtSV 

12*0 


END 



* 

* 

* TRANSFER* 

# 

RECEIVE 2 FRAMES* 

ABORTS BETWEEN 

0593 

9870 204C 

* 

MULT-L LDR 

$R1*=A* L* 
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001714 

0595 

9F00 

UEA 


STR 

$R1*<ERMG*1 

001715 

0597 

9870 

1100 


LDR 

$Rl*sZ'UOO» 

001716 

001717 

0599 

9F00 

117B 

* 

STR 

$R1*<EXST 

001716 




* 



001719 




* FORM 

DATA 

(ASCENDING) 

001720 




* 


001721 

059B 

B38Q 

0D3D 


LNJ 

SB3 *<FACDTA 

001722 

059D 

8700 

1174 


CL 

<HEAD 

001723 

059F 

AB80 

05A7 


LAB 

SB2 *<PAR10 

001724 

05A1 

AF80 

OECF 


STB 

$B2 *<PAKPTR 

001725 

001726 

G5A3 

C380 

0D80 

* 

LNJ 

$B4*<GHEAD 

001727 

001728 

05A5 

A380 

0A4A 

* 

LNJ 

SB2 *<RET 

001729 

05A7 

0004 


PAR 10 

DC 

4 

001730 

05A6 

0004 



DC 

4 

001731 

05A9 

0004 



DC 

4 


00X733 

00X734 

001735 

00X736 

001737 

001736 

001739 

001740 

001741 

001744 

001/43 

001744 

001745 

001746 

001747 

001746 

001749 

001750 

001751 

001752 

001753 

001754 

001755 

001756 

001757 

001756 

001759 

001760 

001761 

001762 

001763 

001764 

001765 

001766 

001767 

001766 

001769 

001770 

001771 

001772 

001773 

001774 

001775 

001776 

001777 

001776 

001779 

001780 

001781 

001782 

001783 

001784 

001785 

001786 

001787 

001786 

001789 

001790 

001791 

001792 

001793 

001794 

001795 

001796 

001797 

001796 

001799 

001600 

001601 

001802 

001603 

001804 

001605 

001606 

001607 

001808 

001609 

001610 

001611 

001612 

001613 

001814 

001615 

001816 

001617 

001616 

001619 

001820 

001621 

001822 

001623 

001824 

001625 

001826 


REPORT TEST SECTION 

TURN ON KCV AFTER 1 XMlT CHAR 


CLEAR HEADER FLAG 


=X»47* 

X*20» 

0 

sX»0» 


<SDd + X'8 * 
X* 10* 

X • 60 • 


GENERATE HEADER 


RECEIVt tND TEST 

LR6* RCV 

LR7* XMI T 

FILL WITH ABORTS 

LR2 CONTROL* RCV* XMIT» TEST 

ACTION FLAG* oELAY BETWEEN FRAMES 

RCV ACI FRAME* CHAR 

XMIT ACT FRAMc.* CHAR 

SEND BUFFER 

RANGE 

VALID 

ADD* 2ND CCB 
RANGE 

LAST* VALID 


EXIT TEST 


* UNDERUN TEST 


9870 

2046 

UND1-K LDR 

SR 1 * -A * 

9F00 

UEA 

STR 

SR 1♦<ERMG+1 



* FORM ASCENDING DATA 

b380 

0D3D 

LNJ 

$B3 *<FACDTA 

87Q0 

1174 

CL 

<HEAD 

AB80 

05C6 

LAB 

SB2 *<PAR11 

AF80 

oecf 

STB 

SB2 * <PARPTR 

C380 

QD80 

LNJ 

* 

$B4,<GHEAD 

A380 

0970 

* 

LNJ 

SB2 * <ABUND 

0008 


PAR 11 DC 

= X * 8 * 

0008 


DC 

= X * 8 * 

0008 


DC 

= 8 

0047 


DC 

-X * 47• 

0081 


DC 

X * 8 1 * 

0000 


DC 

0 

fffb 


DC 

=2*FFFB* 

1800 


DC 

<SDd 

0007 


DC 

7 

0060 


DC 

X * 60 * 

8386 


JMP 

ft “TT T 

SB6 



K 

* SINGLE 

FRAME TESTS 


DELAY 100 MS AFTER TRANSMITTING 5 CHAR 


REPORT TEST SECTION 


CLEAR HEADER FLAG 


GENERA I E HEADtR 


ABORT* UNDERUN TEST 

RCV CONFIG* 7 BITS 

XMIT CONFIG* 7 BITS 

FILL MODE* ABORTS 

LR2* RCV* XMIT* TEST QN 

ACTION FLAG DtLAY INSERT ON XMIT 

RC ACT FR* CHR 

DELAY FR 1* ChR 5 

SEND BUFFER 

RANGE 

LAST * VALID 


THE FOLLOWING TESTS (EA - ED) ARE DESIGNED To TEST 
ARE DESIGNED TO TEST DIFFERENT END CONDITIONS OF 

single frame messages filling and overfuowing the 

RCV FIFO BUFFER. TO DO THJS THE RECEIVER IS NOT 
TURNtD ON UNTIL AFTER THE FIRST XMIT FRAME Is 
TRANSMIT. 


05D1 

9870 

4541 

RCV-EA LDR 

SR 1 * = A» EA * 

05D3 

9F00 

UEA 

STR 

SRI*<ERMG+1 

05D5 

9870 

1000 

LDR 

SR 1 * ~Z• 1000 * 

05D7 

9FOO 

U7B 

STR 

SR 1 * <EXST 

05D9 

B380 

0D3D 

LNJ 

SB3 * <FACDT A 

05DB 

8700 

1174 

CL 

<HEAD 

05DD 

AB80 

05E5 

LAB 

SB2,<PAR12 

05DF 

AF80 

OECF 

STB 

SB2 * <PARPTR 

05E1 

C380 

0D80 

LNJ 

* 

$B4 * <GH£AD 

05E3 

A380 

0A4A 

* 

LNJ 

$B2*<KET 

05E5 

OOOC 


PAR 12 DC 

= X*C» 

05E6 

OOOC 


DC 

*X»C» 

05E7 

008C 


DC 

X»8C« 

05E8 

0045 


DC 

= X'45» 

05E9 

0084 


DC 

X*84» 

G5EA 

0000 


DC 

0 

05EB 

FFOO 


DC 

2 * FFOO * 

05EC 

1800 


DC 

<SD6 

05ED 

0040 


DC 

64 

05EE 

0060 


DC 

X»60» 

05EF 

8386 


* JMP 

SB6 

05FQ 

9870 

4542 

RCV-EB LDR 

$Rl*=A«tB» 

05F2 

9F00 

UEA 

STR 

$R1 * <ERMG+1 

05F4 

9870 

1000 

LDR 

SRI *5=2* 1000* 

Q5F6 

9F00 

1176 

STR 

* 

SR 1 * <EXST 

05 F 8 

B380 

QD3D 

LNJ 

SB3,<FACDT A 

05FA 

8700 

1174 

CL 

<HEAD 

05FC 

AB80 

0604 

LAB 

SB2 *<PAR13 

05FE 

AF80 

OECF 

STB 

$B2 * <PARPTR 

0600 

C380 

0D80 

LNJ 

SB4,<GHEAD 


REPORT TEST 
EXPECTtD STATUS 


FILL ASCENDING DATA 
CLEAR HEADER FLAG 


GENERATE HEADtR 


RECEIVt tND TtST 

RCV CONFIGURATION* a BITS 

XMIT CONFIG* 8 BITS 

FILL WITH FLAgS 

LR2 CONTROL* TEST* XMIT 

FLAG* DELAYED TURN ON OF RCV 

XMIT CONTROL FRAME* CHR 

SEND BUFFER 
RANGE IN BYTES 
VALID 


REPORT TEST 
EXPECTtD STATUS 




GENERATE HEADER 
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001827 




* 






001828 

0602 

A380 

0A4A 



LNJ 

$B2 * <RET 


RECEIVL END TEST 

001829 

0604 

oooc 


PAR13 

PC 

*X»C* 


RCV CONFIGURATION. 8 BITS 

00ia30 

0605 

oooc 




pc 

sX*C* 


XM1T CONFIG* 8 BITS 

001831 

0606 

008C 




PC 

X • 8C • 


FILL WITH FLAbS 

00X632 

0607 

0045 




PC 

?X * 45 • 


LR2 CONTROL* TEST* XMlT 

00X633 

0608 

0084 




PC 

X • 84 • 


FLAG* DELAYED TURN ON OF RCV 

00X634 

0609 

0000 




PC 

0 



001835 
n n i u'xt-. 

060A 

FFOO 




PC 

2•FFOO • 


XMIT CONTROL FRAME* CH« 

Q0it>37 

0606 

1800 




DC 

<SDd 


SEND BUFFER 

001636 

060 C 

0041 




PC 

65 


RANGE IN BYTES 

00X639 

G6QD 

0060 




PC 

X • 60 • 


VALID 

001640 




* 






001641 

001642 

060 t 

8386 




JMP 

$66 



001643 

060F 

9870 

4543 

RCV-EC 

LOR 

iHl.sA'EC' 



001644 

0611 

9FQ0 

11EA 



STR 

$R1*<ERMG+I 


REPORT TEST 

001646 

0613 

9870 

1000 



LPR 

$R1tsZ 1 1000 f 


EXPECTED STATgS 

001646 

0615 

9F00 

1176 



STR 

$Rl*<EXST 



001647 




* 






001648 

0617 

6380 

QD3D 



LNJ 

$B3 *<FACDT A 


FILL ASCENDING DATA 

001649 

0619 

8700 

1174 



CL 

<HEAD 


CLEAR HEADER FLAG 

001650 

0618 

AB80 

0623 



LAb 

$B2,<PAR14 



001S51 

0610 

AF80 

OECF 



STB 

$B2*<PARPTR 



001652 

061F 

C380 

0P80 



LNJ 

$B4*<GHc.AD 


GENERATE HEAOtR 

001653 




* 






001654 




* 






001655 

0621 

A380 

0A4A 



LNJ 

$B2*<RET 


RECEIVE END TEST 

001656 

0623 

oooc 


PAR 14 

PC 

sX»C» 


RCV CONFIGURATION* 8 BITS 

001657 

0624 

OOOC 




dc 

sX»C« 


XMIT CONFIG* 8 BITS 

001656 

0625 

008C 




oc 

X • 8C* 


FILL WITH FLAuS 

001659 

0626 

0045 




PC 

*X»45» 


LR2 CONTROL, TEST, XMIT 

001660 

0627 

0084 




PC 

X * 84 • 


FLAG, UELAYEO TURN ON OF RCV 

001661 

0628 

0000 




PC 

0 



001662 

0629 

FFOO 




PC 

2 * F F 0 0 • 


XMIT CONTROL FRAME, CHR 

001663 




* 






001664 

062A 

1800 




PC 

<SDb 


SEND BUFFER 

001665 

062 b 

0042 




PC 

66 


RANGE IN BYTEs 

001666 

062 C 

0060 




PC 

X* 60* 


VALID 

001667 




* 






001666 

0620 

8386 




JMP 

$66 



nn l 










001670 

062L 

9870 

4544 

RCV-ED 

LPR 

$R1*=A«ED» 



001671 

0630 

9F00 

UEA 



STR 

$R1*<ERMG+1 


REPORT TtST 

00,1672 

0632 

9870 

2000 



LPR 

$Ri,s2«2000» 


EXPECTED STATUS FLAG 

00.673 

0634 

9F0G 

1176 



STR 

$R1,<EXST 



00.674 




* 






00.675 

0636 

6380 

0P3P 



LNJ 

$63 *<FACUTA 


FILL ASCtNOINg OATa 

00.676 

0636 

8700 

1174 



CL 

<HEAD 


CLEAR HEADER FLAG 

00.677 

Q63A 

AB80 

0642 



LAB 

$62 *<PAR 15 



00.676 

063C 

AF80 

OECF 



STB 

$62t<PARPTR 



00.679 

063E 

C380 

OD80 



LNJ 

$B4,<GHLAD 


GENERATE HEAOtR 

00,680 




* 






00.681 




# 






00.682 

0640 

A380 

0A4A 



LNJ 

$B2 *<RET 


RECEIVE END TEST 

00.683 

0642 

OOOC 


PAR15 

PC 

5X*C» 


RCV CONFIGURATION* 8 BITS 

001684 

0643 

OOOC 




DC 

sX»C» 


XMIT CONFIG* 8 BITS 

001885 

0644 

OOOC 




DC 

x*c» 


FILL WITH ABORTS 

001686 

0645 

0045 




DC 

=X • 45• 


LR2 CONTROL* TEST* XMIT 

001887 

0646 

0084 




DC 

X * 84 • 


Flag* delayed turn on of rcv 

001888 

0647 

0000 




PC 

0 


RCV control frame* char 

001889 

0648 

FFOO 




PC 

2 • FT 0 0 • 


XMIT FRAME CONTROL INFO 

001690 




* 






001891 

0649 

1800 




DC 

<SD6 


SEND BUFFER 

001892 

Q64A 

0043 




DC 

67 


RANGE IN BYTEs 

001893 

0640 

0060 




DC 

X • 60 • 


VALID 

001694 




* 






001695 

0 0 HQh 

06 4 C 

8386 




JMP 

SB6 



VV*070 
fini kQ7 










vW A 0 7 f 

001696 




* 






001899 




ik 

TWO 

FRAME TESTS 



001900 




# 






001901 




* 

THE FOLLOWING TESTS TRANSMITS j 

> FRAMED BEFORE TURNING ON RCV. 

001902 




ik 

THEY ARE 

DESIGNED TO TEST 

VARIOUS END CONDITIONS. REFER 

001903 




* 

TO 

TABLE 

M PARw AND find the lable given in the error 

001904 




* 

PRINTOUT 

TO FIND SPECIFIC 

TEST 

CONDITIONS. 

001903 




* 






001906 




* 

REFER TO 

THE DESCRIPTION 

OF THE CCP CONTROL FLAG IN THE 

001907 




* 

HEADER FO 

R ACTION TAKEN BY EACH TEST. 

001908 




* 






001909 




ik 

RCV 

IS NOT 

TURNED ON UNTIL 

after 

BOTH FRAMES ARE TRANSMlTTEO 

001910 




ik 

FOR 

MOST OF 

THESE TESTS. 



001911 




ik 






001912 

0640 

8751 


TFR~M 

CL 

= $R1 



001913 

064fc 

9680 

069A 

TLUP 

LAB 

$Bi*<PAR 



001914 




* 






001915 

0650 

A85P 




LDR 

$R2 * $Bi• + $Rl 


GET LABLE 

001916 

0651 

2900 

0699 



6E2 

*R2,<ETFR 


B 5 DONE 

001917 

0653 

AFOO 

11EA 



STR 

$R2* <ERMG*i 



001918 

0655 

A85D 




LDR 

$R2*$61.*$Ri 


GET EXPECTED STATUS FLAG 

001919 

0656 

AFOO 

1176 



STR 

$R2 * <EXST 



001920 

0658 

A85D 




LDR 

$R2 *$BI • ♦$Ri 


GET CCP CONTROL FLAG 

001921 

0659 

AFOO 

068C 



STR 

$R2,<TFLG 



001922 

0650 

A85D 




LDR 

$R2,$BI.*$Ri 


GET RANGE OF FIRST 

001923 

065C 

AFOO 

0690 



STR 

$R2.<TRNGI 



001924 

065E 

A85D 




LDR 

$R2*$BI • +$R1 


GET RANGt 2 

001925 

065F 

AFOO 

0693 



STR 

$R2* <THNG2 



001926 

0661 

A85D 




LDR 

$R2*$B1.*$RI 


GET XMIT CONTROL FRAME* < -HAR (NEG) 

001927 

0662 

AFOO 

066E 



STR 

$R2* <XCON 



001926 

0664 

9 FQ0 

077E 



STR 

$R1*<DEX 


STORE INDEX 

001929 




* 






001930 




* 






001931 




ik 






001932 




* 

IF ONE BYTE 

♦ CRC FOLLOWED 

BY FLAG* CHANGE TO 3 BYTES 

001933 




ik 

♦ NO 

CRC 




001934 




ik 






001933 

0666 

1C0C 




LDV 

$Ri*=X«C« 



001936 

0667 

9F00 

0689 



STR 

$Rl*<PAR22 


SET FOR 8 BIT INITIAL 

001937 

0669 

8280 

068C 



LB 

<TFLG»52*0002* 


GET ABORT BIT 


0666 

0002 








001938 

066C 

0510 




BBT 

>MTSi 


B s A60RI 



4 ' 

o 
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001939 

066D 

A800 

0693 


LDR 

$R2,<TRNG2 

001940 

066F 

2D01 



CMV 

$R2,=i 

001941 

001942 

0670 

098C 


* 

BNE 

>MTS1 

001943 

0671 

A870 

FEFD 


LDR 

SR2,^2*FEFD* 

001944 

0673 

AFOO 

068E 


STR 

$R2,<XCQN 

001945 

0675 

2C03 



LDV 

SR2,?3 

001946 

0676 

AFOO 

0693 


STR 

$R2,<TRNG2 

001947 

0676 

9870 

Q02E 


LDR 

$R1,*X*2E* 

001946 

001949 

067 A 

9F00 

0689 

* 

STR 

$R1,<PAR22 

001950 

067C 

8380 

0D3D 

MTS1 

LNJ 

$B3,<FACDTA 

001951 

067E 

8700 

1174 


CL 

<HEAD 

001952 

0680 

AB6G 

0688 


LAB 

$B2,<PAR16 

001953 

0682 

AF60 

OECF 


STB 

SB2,<PARPTR 

001954 

001955 

0684 

C380 

0D80 

* 

LNJ 

$B4,<GHEAD 

001956 

001957 

0666 

A380 

0A4A 

# 

LNJ 

$B2,<RET 

001956 

0688 

OOOC 


PAR 16 

DC 

X*C* 

001959 

0689 

OOOC 


PAR22 

DC 

X*C* 

001960 

068A 

008C 



DC 

X*8C» 

001961 

068B 

0045 



DC 

X • 45 • 

001962 

068C 

0000 


TFLG 

DC 

0 

001963 

068D 

0000 



DC 

0 

001964 

068E 

FEOO 


XCON 

DC 

Z*FEOO* 

001965 

001966 

068F 

1800 

0000 


* 

DC 

<SDB 

001967 

0690 


TRNG1 

DC 

0 

001966 

0691 

0040 



DC 

X * 40 * 

001969 

001970 

0692 

1840 


* 

BE 

<SDB+X 1 40• 

001971 

0693 

0000 


TRNG2 

0 

001972 

001973 

0694 

0060 


* 

DC 

X* 60 • 

001974 

0695 

9800 

077E 


LDR 

$R1,<DEX 

001975 

0Q1976 

0697 

0F80 

064E 

# 

B 

<TLUP 

001977 

0699 

8386 


ETFK 

JMP 

SB6 

001976 




* 



001979 




* TABLE FOR 

TWO FRAME TE 

001980 




* 


001981 

069A 

6D61 


PAR 

DC 

=A*MA* 

001982 

069B 

1100 



DC 

X*UOO* 

001983 

069C 

0084 



DC 

X * 84 * 

001984 

069 D 

003F 



DC 

63 

001985 

069E 

0002 



DC 

X • 2 * 

001986 

001987 

069F 

FEFE 


# 

DC 

2 *FtFE* 

001986 

06A0 

6D62 



DC 

sA * MB * 

001989 

06A1 

1300 



DC 

X*1300* 

001990 

06A2 

0084 



DC 

X*84* 

001991 

06A3 

003 F 



DC 

63 

001992 

06A4 

0001 



DC 

1 

001993 

001994 

06A5 

FEFE 


* 

DC 

2•FtFE* 

001995 

06A6 

6D63 



DC 

=A'MC» 

001996 

06A7 

1100 



DC 

X*1100* 

001997 

06A8 

0084 



DC 

X' 84 * 

001996 

06A9 

003F 



DC 

63 

001999 

06AA 

0003 



DC 

3 

002000 

002001 

06AB 

FEFD 


* 

DC 

Z•FEFD* 

002002 

06AC 

6D64 



DC 

=A*MP* 

002003 

06AD 

1200 



DC 

X * 1200 * 

002004 

06AE 

0084 



DC 

X • 84 1 

002005 

06AF 

003F 



DC 

63 

002006 

0680 

0004 



DC 

4 

002007 

002008 

06B1 

FEFC 


* 

DC 

2 1 FEFC * 

0Q2009 

0682 

6D65 



DC 

sA*ME* 

002010 

0683 

1300 



DC 

X * 1300• 

002011 

0684 

0086 



DC 

X 1 86 * 

002012 

0685 

003F 



DC 

63 

002013 

0686 

0003 



DC 

3 

002014 

002015 

0687 

FEFE 


* 

DC 

Z’FEFE* 

002016 

0688 

6 D66 



DC 

*A*MF* 

002017 

06B9 

1300 



DC 

X*1300* 

002018 

06BA 

0086 



DC 

X • 86 * 

002019 

0688 

003F 



DC 

63 

002020 

068C 

0004 



DC 

4 

002021 

002022 

068D 

FEFD 


* 

DC 

2 * FEFD* 

002023 

068E 

6D67 



BE 

sA’MG* 

002024 

06BP 

1600 



X*1600* 

002025 

06C0 

0086 



PC 

X • 86 * 

002026 

06C1 

003F 



DC 

63 

002027 

Q6C2 

0006 



DC 

6 

002026 

002029 

Q6C3 

fefb 


* 

DC 

2*FEFB* 

002030 

002031 

06C5 

6D2A 


* 

DC 

sA•M* * 

002032 

1700 



DC 

X*1700* 

0Q2033 

06C6 

0086 



DC 

X * 86 * 

002034 

06C7 

00 3 F 



DC 

63 

002035 

06C6 

0007 



DC 

7 

002036 

002037 

06C9 

FEFA 


* 

DC 

2* FEFA* 

002036 

06CA 

6 D68 



DC 

?A»MH» 

002039 

06C8 

1100 



DC 

XU100* 

002040 

06CC 

0084 



DC 

X • 84 • 

002041 

06CD 

0040 



DC 

64 

002042 

002043 

06Cp 

0002 

FEFE 



DC 

DC 

Z*FtFE* 

002044 




# 


002045 

06D0 

6D69 

1300 

0084 



DC 

= A* Ml * 

002046 

002047 

m 



BE 

X*1300» 

X • 84* 

002048 

06D3 

0040 



DC 

64 

002049 

06D4 

0001 

FEFF 



DC 

1 

002050 

002051 

06D5 


# 

DC 

2*FEFF* 



RANGE 2 


GET FOR NO CRC 

fill ascending da 

CLEAR HEADER FLAG 


DATA 


GENERA IE HEADlR 


RECElyt tND TtST 
8 BYTE* KCV 
8 BYTE* XMIT 
FLAG IDLE BETWEEN 
XMIT* TEST <LK 2) 

CONTROL FLAG 

RCV CONTROL* FRAME, CHAR 
XMIT CONTROL FRAME, CHAR 

SEND BUFFER l 

CONTROL 

SEND BUFFER 2 
RANGE 2 
CONTROL 


DO NEXT 2 FRAME TEST 
END Up TEST 


LABEL 

EXPECTED STATUS FLAG 

CCP CONTROL Fl AG 

RANGE, 1ST FRAME 

RANGE * 2ND FRAME 

XMIT CONTROL, FRAME 2, CHAR 2 

LABEL 

expected status flag 
ccp control flag 

RANGE, 1ST FRAME 

RANGE OF SECOimD 

XMIT CONFROL, FRAME 2, CHAR 2 




ECTED STATUS FLAG 

ccp control flag 

RANGE, 1ST FRAME 
RANGE, 2ND FRAME 
XMIT CONIROL, FRAME 2, CHAR 3 

LABEL 

EXPECTED STATUS FLAG 
CCP CONTROL FlA<? 

RANGE, 1ST FRAME 
RANGE% 2ND FRAME 
XMIT CONTROL* FRAME 2, CHAR 4 

LABEL 

EXPECTED STATUS FLAG 

ccp control flag 

RANGE, 1ST FRAME 
RANGE, 2 ND FRaME 
XMIT CONIROL, FRAME 2, CHAR 2 

LABEL 

EXPECTED STATUS FLAG 

ccp control flag 

RANGE, 1ST FRAME 
RANGE, 2ND FRAME 
XMIT CONFROL* FRAME 2, CHAR 3 

EXPECTED STATUS FLAG 

ccp control Flag 

RANGE* 1ST FRAME 
RANGE, 2ND FRAME 
XMIT CONTROL, FRAME 2, CHAR 5 


EXPECTED STAUS FLAG 
CCP flag 
RANGE I 
RANGE 2 

XMIT CONTROL FRAME 2 * CHAR 6 
EXPECTED STATUS FLAG 

ccp control flag 

RANGE, 1ST FRAME 
XMlf E i0NT^0L* A FiAME 2, CHAR 2 
LABEL 

Ecp e c 

RANGED 1ST~FRaME 
RANGE* 2ND FRAME 
XMIT CONTROL* FRAME 2, CHAR 1 
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PACE 20 

002052 

06P6 

606A 


0 C 

=A*MJ* 

EXpIcTtO STATUS FLAG 

002053 

060 / 

1200 


DC 

X•1200 * 

002054 

0608 

0064 


oc 

X • 84 • 

CCP CONTROL FfcA<? 

002053 

0609 

0040 


PC 

64 

RANGE * 1ST FRAME 

002056 

06DA 

0003 


DC 

3 

RANGE* 2ND FRAME 

XMIT CONTROL* FRAME 2 

002057 

002056 

0606 

FEFP 

* 

OC 

Z•FfcFD* 

002059 

060C 

6066 


DC 

= A* MK • 

EXpIcTtO STATUS FLAG 

ccp control flag 

002060 

0600 

1200 


DC 

X• 1200• 

002061 

060E 

0084 


OC 

X * 84 • 

002062 

06DF 

0040 


OC 

64 

RANGE* 1ST FRAME 

002063 

06 E0 

0004 


OC 

4 

RANGE* 2ND FRAME 

002064 

002065 

06 E1 

FEFC 

# 

DC 

Z’FEFC 1 

XMIT CONTROL* FRAME z 

002066 

06E2 

6 D6C 


OC 

sA*ML* 

LABEL 

002067 

06E3 

1300 


OC 

X* 1300* 

EXPECTED STATUS FLAG 

002068 

06E4 

0086 


oc 

X • 86 • 

ccp control flag 

002069 

06E5 

0040 


oc 

64 

RANGE* 1ST FRAME 

002070 

06E6 

0003 


oc 

3 

RANGE* 2ND FRAME 

XMIT CONTROL* FRAME 2 

002071 

002072 

06E7 

FEFE 

# 

oc 

z*fefe* 

002073 

06E8 

6060 


oc 

sA»MM* 

LABEL 

002074 

06E9 

1300 


oc 

X*1300* 

EXPECTED STATUS FLAG 

ccp control flag 

002075 

06EA 

0086 


DC 

X • 86 • 

002076 

Q6EB 

0040 


oc 

64 

RANGE* 1ST FRAME 

002077 

06EC 

0004 


oc 

4 

RANGE* 2ND FRAME 

002078 

002079 

Q6ED 

FEFD 

ft 

oc 

Z'FfcFD* 

XMIT CONTROL* FRAME 2 

002080 

06EE 

6 D6E 


oc 

=A*MN* 

LABEL 

002081 

06tF 

1300 


oc 

X* 13G0* 

EXPECTED STATUS FLAG 

002082 

06F0 

0086 


oc 

X * 86 • 

g»6K H IS? L F Ekfli 

RANGE* 2ND FRAME 

002083 

06F1 

0040 


oc 

64 

002084 

06F2 

0005 


oc 

5 

002085 

002086 

06 F 3 

FEFC 

# 

oc 

Z • FEFC* 

XMIT CONIROL* FRAME 2 

002087 

06 F 4 

6 D6F 


oc 

*A*MO* 

LABEL 

002088 

06F5 

1300 


oc 

X*1300» 

EXPECTED STATUS FLAG 

002089 

G6F6 

0084 


oc 

X * 84 • 

CCP control FlAG 

002090 

06 F7 

0041 


oc 

65 

RANGE* 1ST FRAME 

002091 

06F8 

0001 


DC 

1 

RANGE* 2 ND FRaME 

002092 

002093 

06 F 9 

FEFF 

* 

oc 

Z•FfcFF • 

XMIT CONTROL* FRAME 2 

002094 

06 FA 

6070 


DC 

=A*MP» 

LABEL 

002095 

06F6 

1500 


PC 

X*1500* 

EXPECTED STATUS FLAG 

002096 

06FC 

0084 


oc 

X * 84 * 

ccp control Flag 

002097 

G6FD 

0041 


PC 

65 

RANGE* 1ST FRAME 

002096 

06 Ft 

0002 


oc 

2 

RANGE* 2ND FRAME 

002099 

002100 

06 FF 

FEFE 

# 

DC 

Z* FEF E * 

XMIT CONIROL* FRAME 2 

002101 

0700 

6071 


oc 

= A * MU * 

LABEL 

002102 

0701 

1500 


oc 

X * 1500 * 

EXPECTED STATUS FLAG 

ccp control flag 

RANGE* 1ST FRAME 

002103 

0702 

0084 



X * 84 * 

002104 

0703 

0041 


65 

002105 

0704 

0003 


oc 

3 

RANGE* 2ND FRAME 

XMIT CONTROL* FRAME 2 

002106 

0705 

FEFD 


oc 

Z* FtFP* 

002107 

002108 

0706 

6072 

* 

oc 

-A•MR * 

LABEL 

expected status flag 

002109 

0707 

1500 


oc 

X ' 1500 * 

002110 

0708 

0084 


DC 

X * 84 * 

CCP CONTROL FfcAG 

002111 

002112 

0709 

070A 

0041 

0004 


oc 

oc 

65 

4 

RANGE* 1ST FRAME 
RANGE* 2ND FRAME 

002113 

002114 

0706 

FEFC 

* 

oc 

z»fefc* 

XMIT CONTROL* FRAMe 2 

002115 

07QC 

till 


DC 

sA»mS* 

LABEL 

002116 

0700 


PC 

X»1300* 

EXPECTED STATUS FLAG 

002117 

07QE 

0086 


DC 

X • 86 * 

CCP CONTROL FlAG 

002118 

07QF 

0041 


DC 

65 

RANGE* 1ST FRAME 

002119 

0710 

0003 


DC 

3 

RANGE* 2ND FRAME 

XMIT CONTROL* FRAME 2 

002120 

002121 

0711 

FEFE 

# 

DC 

z*fefe* 

002122 

0712 

6074 


OC 

=A*MT* 

LABEL 

002123 

0713 

1300 


OC 

X*1300* 

EXPtCTED STATUS FLAG 

002124 

0714 

0086 


OC 

X * 86 * 

CCP CONTROL FLAG 

002123 

0715 

0041 


oc 

65 

RANGE* 1ST FRAME 

002126 

0716 

0004 


oc 

4 

RANGE* 2ND FRAME 

002127 

002126 

0717 

FEFP 

* 

oc 

2•FEFD* 

XMIT CONTROL* FRAME 2 

002129 

0718 

6075 


DC 

»A * MU * 

LABEL 

002130 

0719 

1300 


DC 

X*1300* 

EXPECTED STATUS FLAG 

002131 

071A 

0086 


OC 

X • 86 * 

CCP CONTROL FlAG 

002132 

0716 

0041 


OC 

65 

RANGE* 1 ST FRaME 

002133 

071C 

0005 


oc 

5 

RANGE* 2ND FRaME 

002134 

002135 

0710 

FEFC 

* 

DC 

z»fefc» 

XMIT CONTROL* FRAME 2 

002136 

071E 

6076 


DC 

•A*MV* 

LABEL 

002137 

071F 

1300 


DC 

X*1300* 

EXPECTED STATU5 FLAG 

002138 

0720 

0084 


OC 

X * 84 * 

CCP CONTROL FLAG 

002139 

0721 

0042 


DC 

66 

RANGE* 1ST FRAME 

002140 

07 22 

0001 


OC 

1 

RANGE* 2ND FRAME 

002141 

002142 

0723 

FEFF 

# 

OC 

Z*FfcFF* 

XMIT CONTROL* FRAME 2 

002143 

002144 

0724 

6D77 

* 

OC 

sA*MW* 

LABEL 

002145 

0725 

1500 


OC 

X*1500* 

EXPECTED STATUS FLAG 

002146 

0726 

0084 


OC 

X * 84 * 

ccp control flag 

002147 

0727 

0042 


oc 

66 

range* 1 ST FRAME 

002148 

0728 

0002 


oc 

2 

RANGE* 2 ND FRaME 

002149 

002150 

0729 

FEFE 

* 

oc 

Z* FEFE* 

XMIT CONIROL* FRAME 2 

002131 

072A 

6078 


oc 

s A * MX * 

LABEL 

002152 

0726 

1500 


oc 

X*1500* 

EXPECTED STATUS FLAG 

002153 

072C 

0084 


oc 

X * 84 * 

ccp control flag 

002154 

0720 

0042 


DC 

66 

RANGE* 1ST FRAME 

002155 

002156 

072E 

G72F 

0003 

FEFP 


DC 

OC 

Z* FfcFD* 

RANGE. 2ND FRAME 

XMIT CONIROL* FRAME 2 

002157 



* 



002158 

0730 

6079 


OC 

sA * MY» 

LABEL 

002159 

0731 

1300 


' 

X*1300* 

EXPECTED STATUS FLAG 

002160 

0732 

0086 


X * 86 * 

ccp control flag 

002161 

0733 

0042 


oc 

66 

RANGE* 1ST FRAME 

002162 

0734 

0003 


DC 

3 

RANGE* 2ND FRAME 

002163 

002164 

0735 

FEFE 

# 

DC 

Z * FfcFE * 

XMIT CONTROL* FRAME 2 


CHAR 3 


CHAR 4 


CHAR 2 


CHAR 3 


CHAR 4 


CHAR i 


CHAR 2 


CHAR 3 


CHAR 4 


CHAR 2 


CHAR 3 


CHAR 4 


CHAR 1 


CHAR 2 


CHAR 3 


CHAR 2 
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002165 

0736 

607A 



OC 

-A•HZ * 

LABEL 


002166 

0737 

1300 



OC 

X•1300 1 

EXPECTtD STATUS FLAG 


002167 

0736 

0086 



DC 

X * 86 • 

CCP CONTROL FlAG 


002166 

0739 

0042 



OC 

66 

RANGE. 1 ST FRAME 


002169 

073A 

0004 



OC 

4 

range, 2ND FRAME 


002170 

0736 

FEFD 



DC 

2*FlFD» 

XMIT CONTROL, FRAME 2, CHAR 

3 

002171 




* 





002172 

073C 

6031 



DC 

= A * m 1 • 

LABEL 


002173 

073D 

2300 



DC 

X • 2300• 

EXPECTED STATUS FLAG 


002174 

073E 

0084 



DC 

X • 84 • 

CCP control flag 


002176 

07 3 F 

0043 



DC 

67 

RANGE, 1ST FRAME 


002176 

0740 

oooi 



DC 

1 

RANGE, 2ND FRAME 


002177 

0741 

f-EFF 



DC 

4 * F E F F • 

XMIT CONTROL, FRAME 2, CHAR 

I 

002176 




* 





002179 

0742 

6032 



DC 

=A»M2* 

LABEL 


002180 

0743 

2500 



DC 

X • 2500• 

EXPECTED STATUS FLAG 


002181 

0744 

0084 



DC 

X • 84 * 

ccp control Flag 


002182 

0745 

0043 



DC 

67 

RANGE, 1ST FRAME 


002183 

0746 

0004 



DC 

4 

RANGE, 2ND FRAME 


002184 

0747 

FEFC 



DC 

2•FEFC• 

XMIT CONTROL, FRAME 2, CHAR 

4 

002186 




* 





002186 

0746 

6033 



DC 

-A•M3• 

LABEL 


002187 

0749 

2300 



DC 

X•2300• 

tXPECTtQ STATUS FLAG 


002186 

074A 

0086 



DC 

X • 86 • 

CCP CONTROL FlAG 


002189 

074b 

0043 



DC 

67 

RANGE, 1ST FRAME 


002190 

074L 

0003 



DC 

3 

RANGE, 2ND FRAME 


002191 

0740 

FEFt 



DC 

2•FtFE• 

XMIT CONTROL, FRAME 2, CHAR 

2 

002192 




* 





002193 

074E 

6034 



DC 

= A *M4• 

LABEL 


002194 

074F 

2500 



DC 

X *2500• 

EXPECTED STATUS FLAG 


002196 

0750 

0084 



DC 

X • 84 ’ 

ccp control flag 


002196 

0751 

0046 



DC 

70 

RANGE, 1ST FRAME 


002197 

0752 

0004 



DC 

4 

RANGE, 2ND FRAME 


002196 

0753 

FEFC 



DC 

Z»FtFC> 

XMIT CONTROL, FRAME 2, CHAR 

4 

002199 




* 





002200 

0754 

6035 



DC 

wA•M5• 

LABEL 


002201 

0755 

2300 



DC 

X•2300 * 

EXPECTED STATUS FLAG 


002202 

0756 

0086 



DC 

X • 86 • 

ccp control flag 


002203 

0757 

0046 



DC 

70 

RANGE, 1ST FRAME 


002204 

0758 

0005 



DC 

5 

RANGE, 2ND FRAME 


002206 

0759 

FEFC 



DC 

Z'FtFCi 

XMIT CONTROL, FRAME 2, CHAR 

4 

002206 




# 





002407 

G75A 

6036 



DC 

sA»M6» 



002206 

075b 

7100 



DC 

X • 7 100• 

EXPECTtD STATUS FLAG 


002209 

07 5C 

0086 



DC 

X • 86 • 

CCP FLAG 


002210 

0750 

0047 



DC 

71 

RANGE 1 


002211 

075E 

0004 



DC 

4 

RANGE 2 


002212 

075F 

FFbA 



DC 

2 1 FFBA• 

XMIT CONTROL, FRAME l, CHAR 

68 

002213 




* 





002214 

0760 

6037 



DC 

w A • M 7 • 

LABEL 


002216 

0761 

1300 



DC 

X»1300* 

EXPECTtD STATUS FLAG 


002216 

0762 

0086 



DC 

X * 8 6 * 

DELAYED TURN uN OF RECEIVE 


002217 

.0763 

003 F 



DC 

63 

RANGE 1 


0022 lb 

0764 

0005 



DC 

5 

RANGE 2 


002219 

0765 

FEFC 



DC 

2•FtFC» 

XMIT CONTROL, FRAME 2, CHAR 

4 

002220 




* 





002221 




* TtST 

mb tests receiver re-sync 



002222 




# 





002223 

0766 

6036 



DC 

= A * M8• 



002224 

0767 

4130 



DC 

l' 4130' 

EXPECTtD STATUS FLAG 


002226 

0766 

00E4 



DC 

X • E4 • 



002226 

0769 

0028 



DC 

40 

RANGE1 


002227 

076A 

0004 



DC 

4 

RANGE 2 


002228 

076b 

FEOO 



DC 

2* FtOO* 

FRAME 2, CHAR s Don*T CARE 


002229 




* 





002230 




* 





002231 




* 





002232 

076C 

0000 



RESV 

18,0 

ROOM FOR MORE 


002233 

002234 

0771 

0000 


OEX 

* 

DC 

0 

STORAGE FOR Ti>*DEX 


002236 




* 





002236 




* START OF 

3 FRAME TESTS 



002237 




# 





002236 




# 

THE 

FOLLOWING TESTS (EN 

-EP) ALL TRANSMIT 3 FRAMES 


OQ2239 




* 

BEFORE RCV IS TURNED ON. 



002240 




* 





002241 

07 7 F 

9870 

454E 

RCV-EN 

LDR 

$R1»sA*EN # 



002242 

0781 

9F00 

UEA 


STR 

$R1,<ERMG+1 

REPORT TEST 


002243 

0783 

9870 

1150 


LDR 

SR1,=2*U5Q« 

EXPECTtD STATUS 


002244 

0785 

9F00 

U7B 


STR 

3>R 1, <EXST 



002246 




# 





002246 

0767 

B380 

0030 


LNJ 

SB3,<FACDT A 

FILL ASCENDING DATA 


002247 

0789 

8700 

1174 


CL 

<HEAD 

CLEAR HEADER FLAG 


002246 

078b 

AB80 

0793 


LAB 

$62 ,<PAR17 



002249 

0780 

AF80 

OECF 


STB 

$B2,<PARPTR 



0G225O 

078 F 

C380 

0080 


LNJ 

$B4,<6HEAD 

GENERATE HEADER 


002261 




* 





002252 




# 





002253 

0791 

A380 

0A4A 


LNJ 

$B2, <RET 

RECEIVE tND TtST 


002254 

0793 

oooc 


PAR17 

DC 

-X*C» 

RCV CONFIGURATION, 8 BITS 


002256 

0794 

oooc 



DC 

= X ' C * 

XMIT CONFIG, 8 BITS 


002256 

0795 

008C 



DC 

X • 8C • 

FLAG IDLE BETWEEN FRAMES 


002257 

0796 

0045 



DC 

sX •45 * 

LR2 CONTROL, TEST, XMIT 


002256 

0797 

0084 



DC 

X • 84 * 

DELAYEO TURN UN OF RECEIVE 


002259 

0796 

0000 



DC 

0 



002260 

0799 

FDOQ 



DC 

2•FDOO * 

RXMIT CONTROL AT FRAME 3 


002261 




* 





002262 

079A 

1800 



DC 

<SDb 

send buffer 


002263 

079b 

0040 



DC 

64 

RANGE IN BYTES 


002264 

079C 

0040 



DC 

X * 40 * 

VALID 


002265 




# 





00226b 

0790 

1840 



DC 

<SDb + X *40• 

BUFFER 2 


002267 

079E 

0002 



DC 

2 

range 


002268 

079r 

0040 



DC 

X * 40 * 

VALID 


002269 




* 





002270 

07 AO 

183C 



DC 

<SDb*60 

BUFFER 3 


002271 

07A1 

0002 



DC 

2 

RANGE, FRAME 3 


002272 

07A2 

0060 



DC 

X • 60 * 

LA5T, VALID 


002273 




* 





002274 

on;v7K 

07 A3 

8386 



JMP 

SB6 



002276 

07A4 

9870 

454F 

RCV-EQ 

LDR 

SRl.sA'EO* 



002277 

G7A6 

9F00 

UEA 


STR 

$R1,<ERMG+1 

REPORT TEST 
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002273 

002279 

002280 

002281 

002282 

002283 

002284 

002283 

002286 

002287 

002286 

002289 

002290 

002291 

002292 

002293 

002294 

002293 

002296 

002297 

002298 

002299 

002300 

002301 

002302 

002303 

002304 

002303 

002306 

002307 

002306 

002309 

002310 

002311 

002312 

002313 

002314 

002313 

002316 

002317 

002318 

002319 

002320 

002321 

002322 

002323 

002324 

002323 

002326 

002327 

002328 

002329 

002330 

002331 

002332 

002333 

002334 

002333 

002336 

002337 

002336 

002339 

002340 

002341 

002342 

002343 

002344 

002345 

002346 

002347 

002346 

002349 

002330 

002351 

002352 

002353 

002354 

002353 

002356 

002357 

002358 

002359 

002360 

002361 

002362 


002363 

002364 

002365 

002366 

002367 

002366 

002369 

002370 

002371 

002372 

002373 

00237* 

002375 

002376 

002377 

002376 

002379 

002380 

002381 

002382 

002383 

00238* 


07A8 
07 AA 

9870 

9F00 

U?B 


LOR 

STR 

$R1,52*1250* 
$R1*<EXST 

EXPECTtD STATUS 

07AC 
07 At 

B360 

8700 

QD3D 

1174 


LNJ 

CL 

$B3 *<FACDTA 
<HEAD 

Ilk 

0760 

AB80 

07B8 


LAB 

$B2* <PAR18 

07B2 

AFCO 

071C 


STB 

$62 * PARPTR 


07B4 

C380 

0D80 

# 

LNJ 

$B4,<GHEAD 

GENERATE HEADER 

0766 

A380 

0A4A 

* 

LNJ 

$B2*<RET 

RECEIVE END TeST 

0768 

07B9 

OOOC 

OOOC 


PAR 18 

DC 

DC 

5X»C 

5X«C* 

bIT5 

07BA 

008C 



DC 

X * 8C * 

FILL WITH FLAGS 

07BB 

0045 



DC 

=X*45* 

LR2 CONTROL* TEST* XMIT 

DELAYED TURN QN OF RECEIVE 

07BC 

076D 

0084 

0000 



DC 

DC 

sX'64' 

0 

07Bt 

FOOO 


* 

DC 

2'FDOO * 

XMIT CONTROL* FRAME 1, 

07^0 

1800 



DC 

<SDB 

SEND BUFFER 

0040 



DC 

64 

RANGE IN BYTEs 

07CI 

0040 



DC 

X • 40 * 

VALID 

07C2 

1840 



DC 

<SD6+X•40• 

BUFFER 2 

07C3 

0003 



DC 

3 

RANGE 

07C4 

0040 



DC 

X • 40 * 

VALID 

07C5 

1860 



DC 

<SDB+X»60• 

BUFFER 3 

07C6 

0002 



DC 

2 

RANGE* FRAME 3 

07C7 

0060 



DC 

X • 60' 

LAST* VALID 

07C8 

8386 



JMP 

$66 


07C? 

9870 

4550 

RCV-EP 

LDR 

$R1*=A*EP» 


07Cb 

9FQG 

UEA 


STR 

$R1*<ERMG+1 

REPORT TtST 

07CD 

07CF 

9870 

9F0Q 

2530 

1176 


LDR 

STR 

$R1 * = 2* 2530• 

$R1*<EXST 

EXPECTEp STATUS 

07D1 

6380 

0D3D 


LNJ 

$B3* <FACDTA 

FILL ASCENDING DATA 

07D3 

870Q 

m 


CL 

<HEAO 

CLEAR HEADER FLAG 

07D5 

AB80 


LAB 

$62 * <PAR19 

0707 

AF80 

OECF 


STB 

$B2 * <PARPTR 


0709 

C380 

0080 

* 

LNJ 

$84,<GH£AD 

GENERA IE HEADER 

0706 

A380 

QA4A 

# 

Lnj 

$B2 *<RET 

RECEIVE END TfcST 

0700 

OOOC 


PAR19 

DC 

5X*C* 

RCV CONFIGURATION* 8 BITS 

070E 

OOOC 



DC 

5X*C* 

XMIT CONFIG* 8 BITS 

07DF 

008C 



DC 

X * 8C* 

FILE WITH FLAgS 

LR2 CONTROL* TEST* XMIT 

07E0 

0045 



DC 

5 X * 4 5 * 

07E1 

07E2 

0084 

0000 



DC 

DC 

X • 84 * 

0 

DELAYED TURN QN OF RCV 

Q7E3 

FDOQ 



DC 

2*FDOO* 

XMIT CONTROL* FRAME £ 

07E4 

1800 



pc 

<SDd 

SEND BUFFER 

07E5 

Qp43 



DC 

67 

RANGE IN BYTES 

07E6 

0040 


£ 

DC 

X • 40 * 

VALID 

07E7 

1840 



DC 

<SDB+X»40* 

BUFFER 2 

07E8 

0002 



DC 

2 

RANGE 

07E9 

0040 



DC 

X • 40 * 

VALID 

07EA 

i860 



DC 

<$DD+X•60• 

BUFFER 3 

07EB 

0002 



DC 

2 

RANGE, FRAME 3 

LAST* VALID 

07 EC 

0060 


£ 

DC 

X * 60 * 

07ED 

6366 


# 

* 

JMP 

$66 





* MEASURE TEST CLUCK AND PRINT* 

(1ST PASS ONLY) 

07EE 

9870 

2057 

SPED~W 

LOR 

$R 1 * s A * W» 


07F0 

9F00 

11EA 


STR 

$R1 *<ERMG+1 

REPORT TEST 

07F2 

9800 

1182 


LDR 

$Ri*<PASSC 


07F4 

1900 

07F7 


BE2 

$R1 * <SPED1 


07F6 

8386 



JMP 

$66 

NOT FIRST PASS 

0 7 F 7 
07F9 

8980 

1179 

SPED1 

CM2 

<LQOP 


0902 


BE 

>SPED2 


07 FA 

8386 



JMP 

$B6 

NOT FIRSI LOOP 




Sp^ L 

SEND 

CALL 

BUFFER WITH ZERO'S 
2V$P*SD6*C0*R400 


07FB 

FBCO 

0003 




07F0 

0380 

0000 

X 




07FF 

OF60 






0600 

1800 






0801 

118E 






0602 

1186 






0603 

8700 

116A 


CL 

<CHS2 

SET FOR 8 BIT BYTEs 

0805 

AB80 

0806 


LAB 

$82*<PAR2i 

0607 

AF80 

OECF 


STB 

$B2,<PARPTR 


0809 

A380 

09E7 


LNJ 

$62* <SPTS 

SPEED IE6T 

0806 

pooc 


PAR21 

DC 

X'C 

RCV CHAR = 8 

08GC 

OOOC 



DC 

X*C' 

XMIT CHAR s 8 BITS 

0600 

OOOC 



DC 

X«C* 

FILL WITH ABORTS 

080t 

0047 



DC 

sX * 47 * 

LR2 CONTROL 

080F 

0000 



DC 

0 

FLAG 

0810 

0000 



DC 

0 

RC ACTION CHR* FRAME 

0811 

0000 



DC 

0 

XMIT ACTION ChR* FRAME 

0812 

1800 



DC 

<SD6 

DATA ADDRESS 

0813 

0800 



DC 

2046 

RANGE IN BYTES 

0614 

0060 



DC 

X * 60 * 

VALID* LAST 

0615 

0F66 



NUP 

>SPLD2 


0816 

8386 


_ 

JMP 

$66 

DONE WITH TEST 


* 


* RANDOM DATA TEST 




‘"V ,y 
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002385 





* 





00138b 

0817 

9870 

5244 


KAM-RD 

LDR 

$R1 * = A *RD* 


002387 

0619 

9FOO 

UEA 




STR 

SR 1 * <ERMG*1 

REPORT TEST 

002388 





* 





I 002389 





* 

GENERATE 

RANDOM DATA 


1 002390 





* 





0Q2 39 i 

0816 

9800 

1182 




LOR 

$R1 * <PASSC 

GET PASS COUNT 

002392 

0810 

9670 

0040 




MUL 

$R 1 * = 64 


002393 

ob ie 

A800 

1179 




LOR 

SR2 * <LOOP 


002394 

0621 

2F04 





MLY 

$R2 * = 4 


002393 

0822 

9A52 





ADO 

SR 1 * = SR2 

GENERATE BASE FOR RAN BEN 

002396 

0823 

9F00 

1189 




STR 

SRI*<BASE 


002397 

0825 

9870 

0100 




LOR 

SRI*=X»100* 


002398 

0827 

9F00 

0853 




SIR 

SR 1 * <RD4 

SET UP SHORT RANGE 

002399 

0829 

9870 

07 FE 




LOR 

3>K1, = X»7FE» 


002400 

0826 

A800 

1192 




LDR 

$R2 *<SPEED 

GET SPEED OF LINE 

002401 

0820 

2906 





BEZ 

SR2 *>RD3 

BRANCH IP NOT MEASURED YET 

002402 

0826 

A970 

010E 




CMR 

SR2 * = 270 


002403 

0830 

0383 





BLE 

>RD3 


002404 

0831 

9F00 

0853 




STR 

SR 1 * <RD4 

SET UP LONG RANGE 

002405 





# 





002406 





RD3 

CALL 

ZVSFI*BASE*M0DE 

INITIALIZE 


0833 

T BCO 

0003 








0835 

0380 

0000 

X 







0837 

0F80 









0638 

1189 









0839 

118 A 








002407 





* 





002406 







CALL 

ZVSF R * SDb * R8 5 

FILL X'85* PSoEDO RAN 


063A 

F6C0 

0003 








063C 

0380 

0000 

X 







063E 

0F80 









08 3 F 

1800 









0840 

116C 








002409 

0841 

AB80 

0846 




LAB 

SB2,<PAR20 


002410 

0843 

AF80 

OECF 




STB 

SB2 *<PARPTR 


002411 

0845 

8700 

1174 




CL 

<HEAD 

CLEAR HEADER FLAG 

002412 

0647 

C380 

0080 




LNJ 

SB4 *<GHEAD 

generate header 

002413 





* 





002414 





* 





002415 

0849 

A380 

06Cl> 




LNJ 

SB2 *<LPTS 

LOOP TEST 

002416 

0846 

OOOC 



PAR20 

DC 

= X»C» 

RCV CONFIG, 8 BITS 

002417 

064C 

OOOC 





DC 

= X»C» 

XMIT CONFIG 

002418 

0640 

OOOC 





DC 

X*C» 

FILL WITH ABORTS 

002419 

084t 

0047 





DC 

= X • 47 • 

LR2 - RCV, XMiT, TEST 

002420 

084F 

0000 





DC 

0 

ACTION FLAG 

QQZ^Zl 

0850 

0000 





DC 

0 

RCV ACUUN FRAME, CHAR 

002422 

0851 

0000 





DC 

0 

XMIT ACTION FRAME, CHAR 

002423 





* 





002424 

0852 

1800 





DC 

<SDb 

DATA 

002425 

0853 

0100 



K04 

DC 

X'lOU* 

RANGE 

002426 

0654 

0060 





DC 

X * 60 • 

LAST, V 

002427 





* 





002428 

0855 

8386 





JMP 

SB6 


002429 





*• 





. 002430 





* 





f 002431 





* 

PARTIAL BYTE* CRC TEST, BIT 

INVERSION TEST 

I 002432 





* 





1, 002433 





* 

THE FOLLOWING TEST REPORTS 

ERRORS WITH LABEL ”XZ" WHERE 

002434 





* 

Z 

IS ANY CHAR* LOOK FOR ENTRY "XZ" IN fABLE "CRCTST" FOR 

002435 





* 

SPECIFICS OF A FAILING TEST• 

002436 





* 





002437 





* 





002438 

0656 

ICEC 



PCRC~X 

LDV 

SRI,=-20 


002439 

0857 

9F00 

1169 


PCRREP 

STR 

SRI*<COUNT 

DO TESI 20 TIMES 

002440 

0859 

8751 





CL 

= SR1 

CLEAR INDEX To PARAMETER TABLE 

002441 





# 





002442 

083A 

9B80 

08AF 


CRC-LP 

LAB 

SB1*<CRCTST 


002443 

085C 

2C01 





LDV 

SR2 * = 1 


002444 





* 





002445 

0850 

C2DD 





LLH 

SR4*SB1•♦SRI 

GET XMIT LR7 

002446 

085E 

CFOO 

089D 




STR 

SR4,<PCRC1 


002447 

0860 

C2DD 





LLH 

SR4 * SB1•+SR1 

GET RCV LR6 

002448 

0861 

CFOO 

069C 




STR 

SR4 * <PCRC2 


002449 

0863 

C2DD 





LLH 

SR4 * SB1•♦SR1 

GET FLAG 

002450 

0664 

CFOO 

08A0 




STR 

SR4 * <PCRC3 


002451 

0866 

C2DD 





LLH 

SR4*SB1•♦SRI 

GET PARTIAL BYTE INFO 

002452 

0867 

CFOO 

089E 




STR 

SR4,<PCRC4 


002453 

0869 

C 200 





LLH 

SR4 * SB1• + SR1 

GET ERROR LABLE BYTE 1 

002454 

086A 

C780 

11EA 




STH 

SR4,<ERMG+1 


002455 

066C 

4900 

08AA 




BEZ 

SR4 *<ENDCRC 

BR IF END OF LIST 

002456 

086E 

C2DD 





LLH 

$R4,SB1•♦SRI 

GET ERROR LABLE BYTE 2 

002457 

086F 

C7A0 

11EA 




STH 

SR4 , <ERMG^1•$R2 


002456 

0871 

8700 

1175 




CL 

< IFLG 

CLEAR BIT INVERSION FLAG <XM1T> 

002459 





# 





002460 

0873 

8280 

089D 




LB 

<PCRC1*=X•20• 

GET TCb BIT 


0875 

0020 








002461 

0876 

0580 

0884 




BBF 

<PCKC5 

BRANCH IF NOT SET 

002462 





* 





002463 

0876 

9870 

0304 




LDR 

SR 1 * = Z • 0304• 

LCF 4 LONG, TyB * 3 

002464 





# 

IN THIS TEST THE ASSUMPTION 

IS MADE IF A TCB BIT IS SET, 

002463 





* 

THEN 

THAT 

HALF OF THE LINE WILL HAVE BIT INVERSION, 

002466 

087A 

9F00 

1174 




STR 

SRI*<HEAD 


002467 

087C 

8 A8Q 

1175 




INC 

< I FLG 


002468 





* 





002469 

087t 

rift ro 

8280 

nnjfi 

089C 




LB 

<PCRC2*=X*20» 

GET TCU BIT (RCV) 

002470 

VO ou 
0881 

0583 





BBF 

>PCRC5 

BRANCH IF NOT SET 

002471 

0682 

8A80 

1175 




INC 

< I FLG 

SET 611 INVERSION FLAG TO 2 

002472 





# 





002473 





# 

GENERATE 

RANDOM DATA FOR CRC 

TEST 

002474 





* 





002475 





PCRC5 

CALL 

ZVSFR *SDB*R10 

FILL X»10* WORDS OF RANDOM DATA 


0684 

FBCO 

0003 








0886 

D380 

0000 

X 







0888 

0F80 









0889 

1800 







s 

ft ."v 

088A 

1180 








F 002476 

0686 

9F00 

077E 




STR 

SRI*<DEX 

STORE INDEX 

002477 

0880 

AB80 

089C 




LAB 

$B2 *<PCRC2 


002478 

088F 

AF80 

OECF 




STB 

SB2 *<PARPTR 


002479 

0891 

C380 

0080 




LNJ 

SB4 *<GHEAD 

GENERATE HEADER 

002480 





# 









TITLE DCMS3* 

•REV A* 
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002481 




* GENLKATfc CkC'S AND CRC RESIDUES 

AND TACK ON END OF SEND DATA 

002482 




4 



002483 

0893 

C380 

0D4D 

LNJ 

$B4«<GCRC 



002484 

00248!? 

0895 

8980 

1175 

PCRC7 CM2 

<IFlG 


CHECK bit inversion flag if 

BRANCH IF NOT SET (f 

002486 

0897 

0903 


BE 

>PCRC8 


002487 

0898 

C380 

OEOA 

LNJ 

$B4,<IVRT 


INVERT DATA % / 

002486 

089A 

A380 

08CP 

PCRC8 LNJ 

$62 * <LPTS 


LOOP TESI 

002489 

069C 

0000 


PCRC2 DC 

0 


RCV LR6 

002490 

089D 

0000 


PCRCl PC 

0 


XMIT LK7 

002491 

089E 

0000 


PCRC4 DC 

0 


FILL WITH ABORTS 

002492 

089F 

0047 


DC 

sX•47• 


LR2 CONTROL* TEST* XMlT 

002493 

08A0 

0000 


PCRC3 PC 

0 


FLAG 

002494 

08 A! 

0000 


PC 

0 


XMIT ACTION FLAG* FRAME 

002496 

08A2 

0000 


PC 

0 


RCV ACTION FLAG* FRAME 

002496 




* 



002497 

08A3 

1800 


PC 

<SD6 



002496 

08A4 

00 IF 


DC 

X • IF • 


RANGE 

002499 

08A5 

0060 


DC 

X • 60 • 


VALID 

002600 




* 



002601 

08A6 

9800 

077E 

LDR 

$Rl*<PEX 



002602 

06A6 

0F80 

085A 

B 

<CRC-LP 



002603 




* 




002604 

08AA 

9800 

1169 

ENPCRC LDR 

$Rlt<COUNT 


GET TEST COUNT 

DO AGAIN IF NuT DONE 

002606 

08AC 

1780 

0857 

61NC 

$R1 * <PCRREP 


002606 

08AL 

8386 


JMP 

$66 


002507 




# 




002506 




* TABLE FOR 

CRC* PARTIAL 

BYTE SUE TEST 

002509 




* 




002610 




* WORD 1 

6 1 T 5 0-7 

LR7* 

XMIT 

002511 




* 

BITS 8-15 

LR6, 

RCV 

002512 




4 




002513 




* WORD 2 

BITS 0-7 

CCP 

FLAG 

002514 




# 

BITS 8-15 

XMIT 

dS 0,1,2 FOR LAST BYTE 

002515 




* 



002516 




* TEST XA 




002517 




* WORD 3 

BITS 0-15 

ASCII TEST IDENTIFIER 

002516 




# 



002519 




* 




002520 




* TEST XA READS IN CRC RESIDUES 

BY SPECIAL RCV BYTE CODE OF "001" 

002521 




* 



002522 

08AF 

ococ 


CRCTST DC 

2•OCOC• 


XMIT* RCV * 8 BITS 

002523 

0860 

080C 


DC 

2»0ti0C» 


TEST* 8 BIT LAST 

002524 

0861 

5841 


DC 

2*5641* 


XA 

002526 




* 




002626 




* TEST X6 




002527 

002526 

002529 

08B2 

0863 

888F 


* 

& 

W' 


XMIT* RCV = 8 BITS 

4 BIT LAST BYTE 

002530 

0664 

5842 


DC 

2•5642 * 


X6 

002531 




* TEST XC 




002532 




* 




002533 

0866 

0808 


DC 

2*0808* 


XMIT* RCV s 7 BITS 

002534 

0866 

0006 


DC 

Z'OuOB* 


3 BIT RESIDUE 

002535 

0867 

5843 


DC 

2*5843* 


XC 

002536 




* TEST XG 



002537 




* 



'■ 

002538 

06b8 

0404 


DC 

2*0404* 


XMIT* RCV s 6 BITS 

002539 

0869 

0007 


DC 

2*0007* 


2 BIT RESIDUE H S 

002540 

08BA 

5847 


DC 

2*5647* 


XG - 

002541 




* TEST XH 



002542 




* 




002543 

06dd 

0000 


DC 

2 *0000* 


XMIT, RCV s 5 BITS 

002644 

066C 

0003 


DC 

Z * 0003' 


3 BIT RESIDUE 

002545 

08B0 

5848 


DC 

2*5848* 


XH 

002546 




* THE FOLLOW1N0 HAVE XMIT 

BIT INVERSION 

002547 




* 




002548 




* TEST XI 




002549 

08BE 

2 C00 


DC 

2•2C00» 


8 BITS* TCB FOR XMIT 

002550 

OttdF 

080D 


DC 

2*060D* 


TEST 6 BIT LAdT 

002551 

08 C0 

0000 


DC 

2 *0* 


XI TEMP*!! SB 5849 

002552 




* TEST XJ 




002553 

08 C1 

2 C00 


DC 

2 • 2C00 * 


8 BITS, TCB FOR TRANSMIT 

002554 

08 C2 

0806 


DC 

2 *0606* 


TEST, 3 BIT RtSIDUE 

002555 

08C3 

564A 


DC 

2*564A* 


XJ 

002556 




* 




002557 




* TEST XR 




002558 

08C4 

2 C20 


DC 

2 * 2C20 * 


8 BITS* ICB ON XMIj, RCV 

002559 

08C5 

oooc 


PC 

2 * OOOC* 


NO RESIDUE 6Y|E 

002560 

08C6 

5846 


DC 

2 * 564b• 


00256.1 

002562 

08 C7 

2 C20 


* TEST XL 

2’2C20 * 


8 BITS* K6 ON XMIt, RCV 

002563 

08C8 

0001 


DC 

2 *0001• 


5 BYTE RESIDUt 

002564 

06C9 

584C 


DC 

2 * 564C * 



002565 




# 




002566 

08CA 

0000 


RES V 

3*0 


END 

002567 



* 




002568 




* 




002669 

002570 




* 




002571 




* 




002572 




* BASIC DATA 

LOUP 1EST 



002573 




* 




002574 

08CP 

. 6380 

0E32 

LPT S LNJ 

$B3 * <PASS 


PASS PARAMETERS 

002575 

G8CF 

8F00 

2063 

SAVE 

<SAVMAJ*=2*0642» 



0801 

0642 





002576 

08D2 

8753 


CL 

-$R3 


CLEAR CHANNEL 

002577 

0603 

C380 

OEDO 

LCT2 LNJ 

$B4 * <FLN 


FIND ACTIVE LINE 

002578 

0805 

0F82 


6 

>LPTS2 


NO MORE ACTIVE LINES 

002679 

0806 

GF65 


6 

>LC 1 8 


002580 

0807 

8F80 

2063 

LPTS2 RSTR 

<SAVMAJ**Z*0642* 



0809 

0642 






002581 

080A 

8382 


JMP 

$62 


EXIT TEST 

002582 




* 




002583 

0806 

6F00 

1166 

LCT8 STR 

$R3 * <CHAN 


STORE CHAN TO TEST 

002584 

0800 

8780 

0 BF6 

CLH 

<xtemp 


SET TO NOT READ XMij pW REV 

002585 

08 OF 

6380 

06A3 

LNJ 

$63 * <LOAD 


LOAD MLCP AND EXECUTE CCP 

002586 




# 



, .. v 

002687 




* READ RCV STATUS TO $R5 * 

XFER SHOULD BE UVtR M 

002586 




* 



1 

002589 

08E1 

9800 

GC1B 

LDR 

$R1 * <XRNG1 


GET RANGE \ 

002590 

08E3 

8756 


CL 

= $R6 



002591 

08E4 

9970 

0002 

CMk 

$R1*=2 






TITLE DCMS3* 1 REV A» 
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002592 

08E6 

0203 




BE 

>LPTS1 

002593 

08E7 

E870 

1010 



LDR 

SR6*sX»101Q» 

002594 

08E9 

D956 


LPTS1 

CMR 

$R5*=$R6 

002595 

08EA 

0903 




BE 

>$♦3 

002596 

08EB 

E3C0 

06C2 



LNJ 

SB 6 * ERRDB 

002597 

08ED 

C380 

1067 



LNJ 

$B4*<DLAYLG 

002598 




* 




002599 




* 

READ 

P VALUE FOR RCV 

002600 




* 




002601 

08EF 

C380 

0 F 6 B 



LNJ 

*B4,<RPVLU 

002602 

06F1 

E870 

0203 



LDR 

$R 6 * sX’203 1 

002603 

08F3 

9800 

11EA 



LDR 

SR1*<EKMG+1 

002604 

08F5 

9970 

204F 



CMR 

$R1**A» 0 » 

002605 

08 F 7 

0905 




BE 

>LPT S3 

002606 

08F8 

D956 




CMR 

$R5*sSK6 

002607 

08F9 

0903 




BE 

>LPTS3 

002608 

08 FA 

E3C0 

06B3 



LNJ 

$B 6 *ERRDB 

002609 

08 FC 

8700 

1176 

LPTS3 

CL 

<MASK 

002610 

08Ft 

9C80 

OC i A 



LDB 

SBl* <XADDI 

002611 

0900 

9F80 

092E 



STB 

$B1*<CQMP*4* 

002612 




* 




002613 




* 

READ 

TRANSMIT STATUS TO 

002614 




* 




002615 

0902 

8AD3 




INC 

= $K3 

002616 

0903 

C3C0 

07 5C 



LNJ 

$B4,DLAY 

0Q2617 




ik 




002618 

0905 

9800 

0C28 



LDR 

SRI*<XADD2 

002619 

0907 

1900 

0911 



BEZ 

SPi* <RSTLST 

002620 

0909 

E870 

1000 



LDR 

SR6*=X»1000» 

002621 

090b 

C380 

10D9 



LNJ 

$B4 * <INXT 

002622 

090D 

D956 




CMR 

SR5**SR6 

002623 

090E 

0903 




BE 

>$ + 3 

002624 

090F 

L3C0 

069E 



LNJ 

SB 6 * tRKDB 

002625 




* 




002626 

0911 

C380 

1QD9 

RSTLST 

LNJ 

SB4 * <INXT 

002627 

0913 

E870 

1020 



LDR 

SR 6 *sX•1020• 

002628 

0915 

D956 




CMR 

$R5 * ~$R 6 

002629 

091 o 

0903 




BE 

>$ + 3 

002630 

0917 

E3C0 

0696 



LNJ 

SB 6 * ERRDB 

002631 




* 




002632 




* 

READ 

P VALUE FOR XMIT 

002633 




# 




002634 

0919 

C380 

0F6B 



LNJ 

$64*<RPVLU 

002635 

09 IB 

E870 

0403 



LDR 

$R6*=X*403* 

002636 

09 ID 

E955 




CMR 

$R6*5$R5 

002637 

09 1E 

0906 




BE 

>COMP 

002638 

091 F 

E3C0 

068E 



LNJ 

$B 6 «ERRDB 

002639 

0921 

9800 

1175 



LDR 

SRI *< IF'LG 

002640 

0923 

8700 

1175 



CL 

< 1FLG 

002641 

0925 

1D01 




CMV 

SKI *»1 

002642 

0926 

0983 




BNE 

>COMP 

002643 

0927 

C380 

OEOA 



LNJ 

SB4,<IVRT 

002644 




* 




002645 




* 




002646 




* 

COMPARE DATA 

002647 




* 




002648 




COMP 

CALL 

ZVSC*$*RTB*M 


002649 

002650 

002651 

002652 

002653 

002654 

002655 

002656 

002657 

00265b 

002o59 

002660 

002661 

002662 

002663 

002664 

002666 

002666 

002667 

002666 

002669 

002670 

002671 

002672 

002673 

002674 

002675 

00267o 

002677 

002676 

002679 

002680 

002681 

002682 

002683 

002684 

002685 

002686 

002687 

002688 

002689 

002690 

002691 

002692 

002693 

002694 


0929 

FBCO 

0003 

0926 

D380 

0000 

092D 

0F80 


092E 

0929 


092 F 

1C00 


0930 

1176 


0931 

116C 


0932 

llbO 


0933 

8980 

11BD 

0935 

O 9 O 9 


0936 

D800 

UBF 

0938 

E800 

11 BE 

093A 

F800 

11 BD 

093C 

E3C0 

0671 

093E 

8280 

119B 

0940 

0001 


0941 

0581 

0019 

0943 

9800 

U 6 C 

0945 

1001 


0946 

A080 

OBEF 

0948 

2041 


0949 

C820 

04AD 

0946 

A854 


094C 

C820 

0E02 

094E 

CF40 

0827 

0950 

E290 

180Q 

0952 

E500 

1176 

0954 

D290 

1 C 00 

0956 

D956 


0957 

0901 

0003 

0959 

E3C0 

0654 

095b 

8280 

0BF7 

095D 

0800 


095t 

058D 


09 5 F 

8 AD 1 


0960 

2CFC 


0961 

E290 

1800 

0963 

D290 

1C00 

0965 

8 AD 1 


0966 

D956 


0967 

0903 


0968 

E3C0 

0645 

096 A 

27F7 


096b 

6800 

1166 

096D 

3E04 


096E 

0^80 

08D3 

0970 

6380 

0E32 


BRANCH IP RANGE <2 


RCV STATUS WRUNG 
DELAY FOR ILS RUPT 


REAP P TU R5 
SB 

GET TEST 

BRANCH IP TEST 0 


BRANCH MEANS p IS good 

RCV P COUNTER BAD AFTER FRAME RCV 


GET ADDRESS OP DATA 


GET XMIT CHANNEL 
DELAY 25 MS 

GET ADDRESS Of SECOND CCb 
IF 2 ERU READ cAST STATUS 
SHOULD BE STAIUS 
INPUT NEXT STATUS 


STATUS WRONG* FIRST CCB 

GET NEXT STATgS 
SHOULD BE STATUS 
COMPARE with IS 

STATUS ERROR* TRANSMIT 


READ p TO R 5 
GET SB 

BRANCH IF GOOu 
PVALUE WRONG FOR CCP, XMIT 
GET BII INVERSION FLAG 
CLEAR FLAG 

BRANCH IF NOT SET 
INVERT DATA 


,*range»erar 


CMZ 

BE 

LDR 

LDR 

LDR 

LNU 

TST 1 C LB 


<ERAR 
> T S T1C 
$R5 * <ERAR+2 
$R 6 * <ERAR+1 
$R7 *<ERAR 
$B 6 *ERRDB 
<0DDPLG*=1 

TST1D 

$R 1 »<RANGE 
*R1,1 

$R2 *<PAR 6 YT 
SR2* 1 

$R4*<TCbBSZ#S32 

$R2*s$R4 

$R4*<DMASK.SR2 

$K4*MASK 

$R 6 * <3PB* SRi 

$R 6 * <MASK 

$R5*<RTB.SRl 

SR5*=SR6 

TST1D 

$B 6 *ERRDB 

<ACTFLG*=Z f 08QG* 


* CHECK CRC’S AND RESIDUES 


* 5*4 

*<SDB*$R1 

*<RTB*$R1 

i 

* = $K6 
IIP 

*ERRDB 

*>TSTIG 


it 

WORD NUMBER 
DATA ERROR IN XFER 


BRANCH IP EVEN RANGE 

FORM RANGE IN BYTES 
GET BYTE SUE OF LAST 

CONVERI BYTE CODE TO BINARY 


GET WHAT DATA SHQOLD BE 
GET WHA DATA A S 

LAST DATA BYTE INCORRECT 
GET TEST BIT FLAG 
BRANCH IF NO CRC To CHECK 

BUMP TO NEXT BYTE 

COMPARE IS VS SB 

ERROR IN CRC UR CRc RESIDUE 


GET TESTED CHANNEL 
BUMP CHANNEL NUMBER 


* UNDERUN* A d ukT H 

# 

ABUND LNJ $B3*< 


PASS PARAMETERS 




TITLE DCMS3 . 

• REV A* 
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002695 

0972 

8F00 2063 


SAVE 

<SAvMAJ,=2*0042* 




0974 

0042 






002o96 

0975 

8753 


CL 

= $R3 



002697 

0976 

C380 OEDO 


ABUND2 LNj 

$B4,<FLN 

FINP ACTIVE LINE 

__ 

002696 

0978 

0F82 


b 

>AB0NP6 

NO MORt LINES 

Vf : 

002699 

Q979 

OF 85 


b 

>ABUNP3 



002700 

097A 

8F80 2063 


ABUNP6 KSTR 

<SAVMAJ,=Z*0042* 




097C 

0042 






002701 

0970 

8382 


JMP 

$62 



002702 




* 




002703 

097L 

6360 06A3 


ABUNP3 LNJ 

$B3♦ <LQAD 

LOAD AND EXECUTE CHANNEL PROGRAM 


002704 




* 




002703 




* XFER SHOULD BE OVER. ABORT SHOULD BE StT (IF pATA ♦ FCS > 24 BITS) 


002706 




* 




002707 

0980 

8756 


CL 

= $R6 



002708 

0981 

7C03 


LPV 

$R7,=3 



002709 

0982 

9280 11EA 


LLH 

$R1*<ERMG+1 

GET TEST MESSAGE 


002710 

0984 

104 A 


CMV 

$R1* = X•4A• 



002711 

0983 

0982 


6NE 

>AB0NP8 



002712 

0986 

7 CO 5 


LOV 

$R7,=5 



002713 

0987 

8280 06F7 


ABUN08 LB 

<ACT FLG.=Z *10Q0 * 

OVERUN 



0989 

1000 






002714 

098A 

0583 


BBF 

>ABUN07 

BRANCH IF NO UVERUn 


002713 

098b 

E870 2000 


LOR 

$R6.=Z * 2000 * 

SET OVLRUN BIT 


002716 

0960 

9800 0C16 


A60NP7 LOR 

$Rl.<XRNGi 



002717 

098F 

9957 


CMR 

$R1. = $R7 



002716 

0990 

0380 0994 


ble 

<A6UNP4 

BRANCH IF RANuE <3 


002719 

099 Z 

E470 1230 


OR 

$K6.=X»1230* 

SHOULD BE STATUS 


002720 

0994 

0956 


ABUNP4 CMR 

$R5*=$R6 

COMPARE WITH IS 


002721 

0995 

0903 


BE 

>$ + 3 



002722 

0996 

L3C0 0617 


LNJ 

$B6.ERKDb 

RCV STATUS WRUNG 


002723 




* 




002724 




* READ XMIT STATUS TO R5 



002723 




# 




002726 

0998 

8A03 


INC 

= $R3 

BUMP CHANNEL NUMBER 


002727 

0999 

C380 1067 


LNJ 

$64,<0LAYLG 

DELAY 225 MS 


002728 

099b 

C360 1009 


LNJ 

$64,<INXT 

INPUT NEXT SThTUS 


002729 




* 




002730 




* STATUS TEST 

FOR RECEIVE 



002731 




* 




002732 

0990 

8280 06F7 


Lb 

<ACTFLGf=2 * 0500 * 

CHECK UNPERUN EXPECTED 



099F 

0500 






002733 

09 AO 

0584 


BBF 

>AB0ND1 



002734 

09Ai 

E870 3020 


LPR 

$R6 . =2 ’ 3020 • 

SB STAIU5 


002736 

09A3 

GF83 


B 

>ABUNP5 



002736 

09 A4 

E870 1020 


ABUN01 LOR 

$R6.=2*1020* 

COMPLtlE. LAST 


002737 

09A6 

0956 


ABUN05 CMR 

$R5.=$R6 



002736 

09A7 

0903 


be ■ 

>$ + 3 



002739 

09A8 

E3C0 0605 


LNJ 

$B6 * tRRPB 

XMIT S1 AT US BAD. SINGLE- FRAME 


002740 

09AA 

C688 OECF 


LAb 

$B4 .*<PARPTR 

GET POINTER TO PARAMETERS 


002741 

09AC 

9844 0006 


LPR 

$R1,$B4 # 6 

PICK UP XMIT ABORT COUNT 


002742 

09 At 

9470 FFOO 


OR 

$R1*=2*FP00* 



002743 

Q9b0 

8251 


NLG 

5$R1 

MAKE PUSiTIVt 


002744 

09bi 

1EFE 


APV 

$Rl.--2 



002743 

09b2 

9F00 GC1B 


STR 

$R1 . <XRNG1 

VALID DATA RANGE 


002746 

09B4 

7C03 


LOV 

$R7,=3 



002747 

09B5 

0280 11EA 


LLH 

$R5 $ <ERMG* 1 

GET TEST LAbLt 


002746 

0967 

504A 


CMV 

$k5.*X«4A* 



002749 

0968 

0982 


BNE 

>AB0ND9 

BRANCH IF NOT TEST j 


002750 

0969 

7C05 


LPV 

$R7,=5 


^ . 

002751 

096A 

9957 


ABUND9 CMR 

$R1 * = $R7 



002752 

0966 

0AA7 


BALE 

>UND2 

PQN*T COMPARE DATA FOR ILLEGAL CASE 


002753 

096C 

1001 


SOL 

$Rl»1 

FORM RANGE IN WORDS 


002754 

0960 

9F00 116C 


STR 

$Rl.<RANGE 



002755 




* 




002756 

09BF 

8700 1176 


CL 

<MASK 



002757 




COMP! CALL 

2VSC.$.$.MASK.RANGE 

.ERAR 



09C1 

F6C0 0003 







09C3 

0380 0000 

X 






09C5 

0F80 







09C6 

090 







09C7 

090 







09C6 

1176 







09C9 

116C 







09CA 

116P 






002758 

09C6 

8980 1160 


CM2 

<ERAR 



002759 

09C0 

0909 


6L 

>UNP3 



002760 

09CL 

0800 UBF 


LOR 

$R5.<ERAR+2 

IS 


002761 

0900 

E800 116E 


LOR 

$R6.<tRAR*l 

SB 


002762 

0902 

E800 116D 


LPR 

$R6.<ERAR 

WORD NUMBER 


002763 

0904 

E3C0 0509 


LNJ 

$B6.ERRPB 

DATA ERROR 


002764 

0906 

9800 006 


UN03 LPR 

$R1.<XRN61 



002765 

0908 

8801 


PEC 

= $R1 



002766 

0909 

8755 


CL 

= $K5 



002767 

090A 

0956 


CMR 

$R5 » = $R6 



002768 

0906 

0907 


BE 

>UNP2 



002769 

G90C 

E3C0 0501 


LNJ 

3,66.ERRPB 

LAST BYTE TRANSFERED WRONG 


002770 

090fc 

OF80 09E2 


6 

<UNP2 

DONE _ 


002771 

0960 

0090 ICOO 


LPH 

$R5 .<RT6# $Ki 

GET ACIUAL LA^T BYTE 


002772 

Q9£2 

6800 1166 


UND2 LDR 

$R3.<CHAN 

GET TL5TE0 CHANNEL 


002773 

09E4 

3E04 


APV 

$R3.=4 

BUMP CHANNEL NUMBER 


002774 

09E5 

OF80 0976 


b 

<ABUNP2 



002775 




* 




UUfc(io 








002777 




* 




002778 




* SPEEP TEST 




002779 




# 




002780 

09E7 

6380 0E32 


SPTS LNJ 

$B3 »<PASS 

PASS PARAMETERS 


002781 

09E9 

8FOO 2063 


SAVE 

<SAVMAJ.=2*0002* 




09E6 

0002 






002782 

09EC 

8753 


CL 

= $R3 



002783 

09E0 

C380 OEDO 


SPTS1 LNJ 

$B4.<FLN 

FIND LINE NUMBER 


002784 

09EF 

0F83 


B 

>SPTS3 

NO MORt LINES 


002783 




* 




002786 

09F0 

OF80 09F6 


B 

<SPTS2 



002787 

09 F 2 

8F80 2063 


SPTS3 KSTR 

<5AyMAJ.=2*00Q2* 




09F4 

0002 






002788 

09F5 

8382 


JMP 

$62 

EXIT 

_ 

002789 




# 



(f 

002790 

09F6 

BFOO 1166 


SPTS2 STR 

$R3,<CHAN 


i J 

002791 

09F8 

6380 06A3 


LNJ 

$B3 * <L0AP 

LOAD MLCP ♦ EXECUTE CCP 

f V 

002792 

09FA 

9870 0804 


LPR 

$R1 . = 2052 

RANGE ♦ 2 FLAGS + ILS 


002793 

09FC 

9200 1183 


SUB 

$R1,<RKNG 

GETS NUMBER ACTUALLY SENT 





TITLE DCMS3, »KEV A* 


002794 
002795 
002796 
002797 
00279b 
002799 
002800 
Q02b0I 
002802 
002803 
002804 
002805 
002806 


002807 


002808 


002809 


002810 
00281i 
002812 
002813 


002814 

002815 

002816 

002817 

002818 

002819 

002820 

002821 

002822 

002823 

002824 

002825 

002826 

002827 

002828 

002829 

002830 

002831 

002832 

002833 

002834 

002835 

002836 

002837 

002838 

002839 

002840 

002841 


09 Ft 
09 FF 
0A01 
0A02 
0A04 
0A06 
0A08 
OAOA 
OAOC 

OAOE 

OAOF 

0A11 
0A13 
0A15 
0A16 

0A17 
OA19 
GA16 
0A1C 

OA 1D 
OA 1F 
0A21 
OA22 

0A23 

OA25 

0A27 

0A28 

0A29 

0A2A 

0A2C 

0A2E 

0A30 

0A32 

0A33 

0A34 

0A35 
0 A 3 7 
0A38 
0A3A 

0A3C 

0A3E 

0A3F 

0A41 

GA44 

0A47 


1E03 

1880 0A02 
8751 

9F00 1168 
C870 01E0 
C200 0000 
CFOO 1167 
0380 111E 
0380 1138 

3041 

BFOQ 1177 


FBCO 

0380 

0F60 

0A41 

FBCO 

0380 

0F80 

1177 

FBCO 

0380 

0F80 

0A44 

FBCO 
0380 
OF 80 
1187 
1C5C 
9F00 
8700 

FBCO 

0380 

0F8Q 

1178 
1177 

9800 

3042 

9F30 

9F00 


0003 

0000 


0003 

0000 


0003 

0000 


0003 

0000 


1177 

1178 

0003 

0000 


1187 

11 AO 
1192 


ADV 
BCE Z 
CL 

SPED3 STR 
LOR 
SUB 
STR 
LNJ 

LNJ _ 

* PRINT LINE SPEED 
SUR $R3 * 1 
STR 
CALL 


SR 1♦ = 3 
$Ri,<SPED3 
- 1 

SR 1* <CHKCNT 
SR4f5480 
$R4*<ZHKTCC 
SR4♦<ELPS 
SB5«< TKSEC 
SB5,<BPS 


SR3,<TPR 

ZVSTCtHNE 
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COMPENSATE FQK buffering 

MAKE SURt ♦ 

4000 MSEC (TICKS) 

REAL TIME CLOCK TICKS 
ELAPSED TIME 

CQNVERI RTC TICKS JO MSEC 
CALCULATE 6ITS/SEC 

ALIGN LINE SPtED 

LINE 


B800 1166 
3E04 

0F80 09ED 

4C49 4E45 2400 
4249 5453 2F53 
4543 2030 2024 


LINE 


CALL 

ZV$TD,TPR 

NUMBER 

CALL 

ZVST C,SPDMSG 

BITS/SEC s 

CALL 

ZV$TD,MSBS 

bits/sec 

LDV 

STR 

CL 

CALL 

$Rl,sX*5C* 

SRI,<TPR 
<TEMP 

ZV$TD,TEMP,TPR 

NULL 

ADD ZERO ON END 

LDR 

SQR 

STR 

STR 

SRI,<M5BS 
$R3,2 

SRI,<HCLS-U$R3 

SR1,<SPEED 

GET SPEED 

ALIGN FOR DAUGHT BD NUMB 
STOKE AWAY SPlED/Io 

LDR 

ADV 

B 

SR3,<CHAN 

SR3,s4 

<SPTSl 

GET BACK TESTED CHANNEL 
BUMP CHANNEL NUMBER 

DO NEXT CHANNEL 

TEXT 

TEXT 

•LINES’ 

•BITS/SEC = $• 







* RECEIVE END 

TEST 

0A4 A 

OFOO 

0A52 


RET 

NOP 

<RET1 

0A4C 

8F00 

2063 



SAVE 

<SAVMAJ,sZ»0002» 

0A4E 

0002 






0A4F 

B380 

0E32 



LNJ 

SB3,<PASS 

0A5 1 

8753 




CL 

= SR3 

0A52 

C380 

OEDO 


RET 1 

LNJ 

SB4,<FLN 

0A54 

0F83 




B 

>RET9 

QA55 

QF8Q 

0A5B 



B 

<RET2 

0A57 

8F80 

2063 


RET9 

KSTR 

<SAVMAJ,5Z’0002» 

0A59 

0002 






0A5A 

8382 



4L 

JMP 

SB2 

0A5B 

BFOO 

1166 


KET2 

STR 

$R3,<CHAN 






CALL 

ZV$F * STBL,CM1,C4 

0A5D 

FBCO 

0003 





0A5F 

D380 

0000 

X 





0A61 
0A62 
0A63 
0A64 


OF80 

OAEE 

1197 

1196 


002842 

002843 

0A65 

B380 

0BA3 

* 

LNJ 

002844 




# 


002845 




* LOOP 

TO ( 

002846 

002847 

0A67 

IC01 


# 

HX 

002848 

0A68 

9F00 

1177 


002849 

0A6A 

8752 


CL 

002850 

002851 

0A6b 

F800 

U7B 

* 

LDR 

002852 

0A6D 

8756 

FNULL 

CL 

002853 

0A6E 

7084 



DOL 

002854 

0A6F 

6D04 



CMV 

002855 

0A70 

2X81 



BNE 

002856 

0A71 



i?K C 

002857 

0A72 

EFOO 

1177 


002858 

002659 

0A74 

QFF9 


* 

B 

002660 

0A75 

DF20 

OAEE 

RET 14 

STR 

002861 

0A77 

D570 

3250 


AND 

002862 

0A79 

6D01 



CMV 

002863 

0A7A 

0922 



BE 

002864 

0A7B 

EFOO 

1177 

RETX 

STR 

002865 

0A7D 

EF 54 


STR 

002866 

GA7E 

8AD2 



INC 

002867 

QA7F 

4D04 



CMV 

002866 

0A80 

0900 

0AD1 


BE 

002669 

OA62 

4D03 



CMV 

002670 

0A83 

0983 



BNE 

002871 

0A84 

6756 



CL 

002672 

0A85 

0F90 



B 

002673 

0A86 

4D02 


RET3 

CMV 

002674 

0A67 

090C 



BE 

002675 

0A68 

E870 

3000 


LDR 

002876 

GA8A 

4D05 



CMV 


SB3,<LQAD 


SRlf-1 

$R1,<TPR 

-SR2 

SR7,<EX5T 
5$R6 
$R7 ,4 
$R6, »4 
> R E T 14 
= $R2 

$R6 * <TPR 
>FNULL 

SR5 ,<ST6L#$R2 

$R5t?2*3250« 

SR6,*1 

>RET5 

$R6 , <TPR 

SR6,*$R4 

s$R2 

SR4»s4 

<RET8 

$R4,s3 

SRET3 

= SR6 

>RETl1 

$R4*s2 

>RET13 

$R6 »sZ•3000* 
$R41 *5 


PASS PARAMETERS 
FIND ACTIVE LINE 


STORE CHANNEL 
INITIALIZE STATUS TABLE 


LOAD CHANNEL PROGRAM AND EXECUTE 
FOR FRAMES SENT 

INITIALIZE LAST STATE 
TRACKS CCB NUMBER 

GET EXP STAT wORD 

SHIFT LEFT DKIT To R6 
CHECK FOR NULL ON FIRST 

SET LAST STATfc 


STORE STATUS FOR REFERENCE 

STRIP 10 STATUS COMPLETE* OVRUN* EOF 

BRANCH IF GOOD DATA, STATUS 
STORE LAST STATE 

BUMB CCB NUMBuR 
CHECK FOR NULu 
DO NEXT 

BRANCH IF NOT ZERO STATUS 
EXPECT ZERO STATUS 


B s OVtRUN 




TITLE DCMS3» 'REV A* 


002877 

0A8B 

090A 



BE 

002878 

0A8C 

£870 

1210 


LDR 

002879 

0A8t 

4D06 


CMV 

002880 

0A8F 

0906 



BE 

002881 

0A90 

£870 

3210 


LDR 

002882 

002883 

0A92 

0F83 


# 

B 

002884 

0A93 

£870 

3010 

RET13 

LDR 

002885 

0A95 

D956 

RET11 

CMR 

002886 

0A96 

0900 

0AD1 


BE 

002887 

0A98 

E3C0 

0515 

RET4 

LNJ 

002888 

0A9A 

0F80 

0AD1 


B 

002889 

0A9C 

£870 

1010 

RET5 

LDR 

002890 

QA9E 

D956 



CMR 

002891 

0A9F 

0903 



BE 

002892 

002893 

0AA0 

E3C0 

050D 

* 

LNJ 

002894 




* CHECK DATA 

002895 




* 


00289b 

0AA2 

CCAQ 

BCF4 

GAEA 

RET6 

LDB 

002897 

0AA4 



LDB 

002698 

0AA5 

BF80 

QAC 2 


STB 

002699 

0AA7 

£804 



LDR 

002900 

0AA8 

6041 



SOR 

002901 

0AA9 

£F00 

U6C 


STR 

002902 

OAAB 

9852 



LDR 

002903 

OAAC 

£800 

1177 


LDR 

002904 

QAA£ 

6004 



CMV 

002905 

GAAF 

0982 



BNE 

002906 

OABO 

88D1 



DEC 

002907 

OABl 

BC90 

OAEA 

RET10 

LDB 

002906 

0A63 

8AD2 



INC 

002909 

0A64 

CC83 



LDB 

002910 

0AB5 

BBC4 

0400 


LAB 

002911 

0AB7 

BF80 

0AC3 


STB 

002912 

0AB9 

6700 

1176 


STR 

002913 

002914 

OABb 

CFOO 

1177 

* 


002915 




CDATA 

CALL 
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>REI11 

$R6 *~Z * 1210 1 

BRANCH s MISSING FRAME 

$R4,s6 
>RET11 

$R6,sZ»3210» 

BRANCH IF ABORTED FRAME 

>RET11 

IS ABORTED* QyERUN FRAME 

$R6*sZ f 3010* 
$R5*s$R6 
cRET8 
$B6 *£RRDB 

GOOD 

STATUS ERROR - SHOULD BE IN R§ 

<RET8 

$R6*sZ»1010» 

$R5*=$R6 

COMPLETE* EOF 

>RET6 
$B6«ERRDB 

GOOD IF BRANCH 

ERROR* STATUS* RCV 

$B4*<RADTBL.$R2 

GET ADDRESS OF OUTpyT ADDRESS 

$B3*+$B4 

$B3*<CDATA*4*$AF 

GET ADDRESS 

$R6 *$B4 

GET RANGE 

$R6*i 

$R6 *<RANGE 

GET RANGE IN WORDS 

$K1$-$R2 
$R6 * < TPR 

GET LAST STATE 

$R6*s4 
>R£ T10 

SEE IF LAST STATE WAS NULL 

« SR 1 

$B3*<RADTBL*$R1 

SET TO GET LAST POjNTER 

GET RCV ADD ~X*4Q0# 

= $R2 

BUMP FUR NEXT TIME 

$64,$63 

$B3 *$B4#X 1 400 * 

$B3*<CDATA+4+2*$AF 

<MA$K 

GET ADDRESS 

$R4,<TPR 

SAVE LA5I STATE 

2V$C*$*$*MA5K*RANGE 

*ERAR 



OABD 

FBCO 

0003 







OABF 

D360 

0000 

X 






OAU 

OF60 








oac<: 

OABD 








0AC3 

OABD 








0AC4 

1176 








0AC5 

116C 








0AC6 

11BD 







002916 

0AC7 

8980 

ilBD 



CM2 

<ERAK 


002917 

GAC9 

0908 



BE 

>RE1 8 


002916 

OACA 

D800 

11BF 



LDR 

$R5 * <EKAR + 2 

IS 

002919 

QACC 

E8Q0 

UBE 



LDR 

$R6 * <ERAR + 1 

SB 

002920 

0 ACE 

E3C0 

04 DF 



LNJ 

$B6,ERRDB 

DATA ERROR IN XFER 

002921 

OADO 

0000 




HLT 



002922 

0AD1 

9800 

1192 


RET 8 

LDR 

$R1♦<SPEED 


002923 

0AD3 

9970 

010E 



CMR 

$R1 ♦ *270 

COMPARt FOR 2700 BAUD 

002924 

0AD5 

0303 




bg 

>RET15 

002925 

0AD6 

C380 

1067 



LNJ 

$B4 * <DLAVLG 

LUNG DtLAY 

002926 

0AD8 

C380 

1067 


RET15 

LNJ 

$64 * <DLAYLG 

DELAY 225MS 

002927 

OADA 

8756 




CL 

= $R6 


002928 

OADB 

7084 




DOL 

$R7,4 

GET NEXT STATUS STATE 

002929 

OADC 

89D6 




CM£ 

= $Kb 

CHECK IF DONE 

002930 

OADD 

0908 




bt 

> R E T 7 

BRANCH IF DONq 

002931 

OADE 

7D04 




CMV 

$R7*?4 

TEST FUR NULL 

002932 

OADF 

0900 

0A75 



BE 

< R E T 14 


002933 

OAE1 

C380 

10D9 



LNJ 

$B4 * <INXT 

INPUT NEXT STATUS 

002934 

0AE3 

0F80 

0A75 



B 

<RET14 


0Q2935 

0AE5 

B800 

1166 


RET7 

LDR 

$R3 * <CHAN 

GET TESTED CHANNEL 

002936 

0AE7 

3E04 



ADV 

$R3 * = 4 

BUMP CHANNEL NUMBER 

002937 

002936 

0 AE8 

01" 80 

0A52 


* 

b 

<RET 1 


002939 





* POINTERS TO 

XMIT ADDRESS AND 

range 

002940 





* 



002941 

OAEA 

0C1A 



RADT6L 

DC 

<XADD1 


002942 

OAEb 

0C28 




DC 

<XADD2 


002943 

0 AEC 

OC33 




DC 

<XADD3 


002944 

002945 

OAED 

0C3E 



* 

DC 

<XAUD4 

back STORED here 


002946 





* STATUS READ 


002947 





* 




002946 

OAEE 

FFFF 



STbL 

& 

-1 


002949 

OAEF 

FFFF 




-1 


002950 

OAFO 

FFFF 




DC 

-1 


002951 

002952 

002953 

OAF 1 

FFFF 



* 

DC 

-1 






* 




002954 





* INITIAL CONDITIONS TEST 


002955 





# 




002956 

0AF2 

B380 

0E32 


TONTST 

LNJ 

$B3 * <PASS 


002957 

0AF4 

8F00 

2063 



SAVE 

<SAVMAJ, = Z»0002 « 



GAF6 

0002 







002958 

OAF 7 

8753 




CL 

= $R3 

R3 TRACKS CHANNEL 

002959 

OAF 6 

C380 

OEDO 


TONI 

LNJ 

$B4,<FLN 

FIND ACTIVE LiNE 

002960 

OAFA 

0F82 




B 

>T0N2 

NO MORt LINES 

002961 

002962 

OAFB 

OF85 



* 

B 

>T0N3 


002963 

OAFC 

8F80 

2063 


T0N2 

RSTR 

<SAvMAJ*=Z*0002* 



OAFL 

0002 







002964 

002965 

OAFF 

8382 



* 

JMP 

$B2 


002966 





* 




002967 





4 PUT 

XMIT IN 

FLAu IDLE* TURN ON RCV* DUMMY RCV* GET NO 

002966 





* 



002969 

ObOU 

BFOO 

1166 


T0N3 

STR 

$R3 * <CHAN 


002970 

0B02 

3042 




SOR 

$R3 * 2 

GET LA NUMBER 

002971 

0603 

9830 

11B9 



LDR 

$K1*<ATLT.$R3 

GET ID 

002972 

UbOS 

8752 




CL 

-$R2 

002973 

0606 

9970 

21F6 



CMR 

$R1*=Z»21F6» 


002974 

0B06 

0981 

0003 



bNE 

T0N1U 

b - BH4PLE 

002975 

ObOA 

A870 

OOEB 



LDR 

$R2*=X»EB» 


002976 

OBOC 

AFOO 

0B9C 


TON 10 

STR 

$R2 *<DSC1 c 


002977 

OBOt 

B800 

1166 



LDR 

$R3 * <CHAN 

RESTORt CHANNEL NUMB 

002976 

0B10 

9870 

0020 



LDR 

$R1 *-X* 20* 

INITIAL FLAG IDLE 

002979 

Obl2 

9780 

OBFA 



STH 

$R1♦<IFM 





TITLE DCMS3, »REV A* 


PAGE 29 


002980 

002981 

002982 

002983 

002984 

002985 

002986 

002987 

002986 

002989 

002990 

002991 

002992 

002993 

002994 

002995 

002996 

002997 

002996 

002999 

003000 

003001 

003002 

003003 

003004 

00300> 

003006 

003007 

003006 

003009 

003010 

003011 

003012 

003013 

003014 

003015 

003016 

003017 

003016 

003019 

003020 

003021 

003022 

003023 

003024 

003023 

003026 

003027 

003026 

003029 

003030 

003031 

003032 

003033 

003034 

003035 

003036 

003037 


0514 

0515 

0517 


0519 

0B16 

0510 

0B1E 

051F 


Ob2i 

0522 

0524 

0526 

0527 

0526 


052A 

052C 

QB2E 


0b30 

0532 

0533 

0635 

0636 

0537 


1C08 

9760 06F6 
b38Q 05A3 


0380 0F6b 
E870 021A 
E955 
0903 

E3C0 048E 


8AD3 

C380 OF65 
E870 0441 
E955 
0903 

E3C0 0485 


8780 06FA 
8780 G6E6 
5380 05A3 


8A03 

C380 

E955 

0903 


0B39 

68D3 


053A 

C380 

0F6B 

Qb3C 

E870 

0270 

0B3E 

E955 


0B3F 

0903 


0B40 

E3C0 

0460 

0B42 

8AD3 


0543 

C38Q 

0F65 

0545 

E870 

0403 

0547 

E955 


0646 

0903 


0549 

E3C0 

0464 


003036 

0545 

6980 

1179 

003039 

054D 

0996 


003040 

0B4E 

8960 

1182 

003041 

003042 

0550 

0993 


003043 

0551 

F BCG 

0003 


0553 

D380 

0000 


0555 

OF 60 



0b56 

0592 


003U44 

0557 

5F52 


003045 

0558 

2041 


003046 

003047 

0b59 

AFOO 

1177 


0555 

F5C0 

0003 


055D 

D380 

0000 


055F 

0F80 



0560 

1177 


003046 

0561 

E380 

0C9A 

003049 

0663 

6800 

1166 


003050 

003051 

003052 

003053 

003054 

003055 

003056 

003057 

003056 

003059 

003060 

003061 

003062 

003063 

003064 

003065 

003066 

003067 

003066 

003069 

0Q307U 

003071 

003072 

003073 

003074 

003075 

003076 

003077 

003076 

003079 

003080 

003081 

003082 

0Q3O83 

003084 


LDV 
STH 
LNJ Sb 


$Ri,»8 
$R1,<XTEMP 
' 3,<LQAD 


READ P VALUE FOR RCV 


LNJ 

LDR 

CMR 

5E 

LNJ 


$B4,<RPVLU 
$R6 , sX * 2lA• 
$R6,=$K5 
>$♦3 

$B6,ERRDB 


READ P VALUE FOR XMIT 


INC 

LNJ 

LDR 

CMR 

6E 

LNJ 


= $R3 

$54 * <RPVLU 
$R6,sX»44l* 
$R6,s$K5 
>$♦3 

$56 *ERRD5 


TURN ON TRANSMIT * 5UT NOT 


CLH 

CLH 

LNJ 


< IFM 
<PRCV 
$B3,<LOAD 


SET FLAG TO R&AD XMIT FW REV 
LOAD CHANNEL PROGRAM AND EXECUTt 


READ P TO R5 
SB 


P VALUt WRONG, AFTER START 10 

GET XMIT CHANNEL 
SB 

WRONG P VALUE AFTER START, XMIT 

KCV AND CHECK UPERAJION 

SET FOR ABORT FILL 

SET FOR RECEIVE START AT X»200* 

LOAD CHANNEL PROGRAM AND EXECUTE 


READ XMIT STATUS, SHOULD 5E COMPLETE 


1020 

LDR 

$R6,*X»1020» 


10D9 

INC 

s$K3 

GET BACK XMIT 

LNJ 

$B4 * <1NXT 

INPUT NEXT STATUS 


CMR 

$R6,-$R5 



til 

>$♦3 


0476 

LNJ 

$66,ERRDB 

WRONG XMIT STATUS 


CHECK P VALUE FUR RCV - SHOULD HAVE ILS ONLY 


DEC =$R3 

LNJ $54,<RPVLU 

LDR $R6, =sX ’ 270 * 

CMR $R6,=$R5 

BE >$+3 

LNJ $B6,ERRDb 


GET BACK RECEiVI 
READ P VALUE TO 


SB 


E CHANNEL 
K5 


INCQRRECI RCV OPERATION 


* CHECK P VALUE FUR XMIT, SHOULD HAVE COMPLETED 


READ P TU R5 
SB 


INC 

= $R3 

LNJ 

$B4,<RPVLU 

LDR 

$R6,sX * 403 * 

CMR 

$R6,=$R5 

BE 

>$+3 

LNJ 

$56,ERRDB 


XMIT CHANNEL PROG DIDN’T COMPLETE 


IF FIRST PASS, LOOP, PRINT BBHOLC FIRMWARE REV NUMBER 


CM2 

BNE 

CM2 

BNE 

<LQOP 

>T0N6 

<PAbSC 

>T0N6 

BRANCH IF NOT FIRST 
BRANCH IF NOT FIRST 

LOOP 

PASS 

CALL 

2V$ fC,MESG4 

PRINT BHCLA LINE 


STR 

SCR 

STR 

CALL 

$R3,s$R2 
$R2,l 
$K2,<TPR 

2V$TD,TPR 

GET LINE NUMBcR 

TYPE LINE NUMBER 



T0N6 

# 

* l* 

* 2 • 

* 3. 

* 

* 

* 

* 


LNJ 

LDR 

ATTEMPT 
ATTEMPT 
ATTEMPT 
PART 3 


$56,<PREV 
$R3,<CHAN 


PRINT REV NUMBER 
GET TESTED <CHANNEl 


19 TRANSMIT WITH NO REQUEST, JO..S|ND, f J|SI_AND, x piKECT CONNECT. 


TO TRANSMIT WITH NO DIRECT CONNE 
TO TRANSMIT WITH BIT 2 OF LK2 s 1 
IS DONE FOR BH4DLD ONLY, 


OR TEST MODE 
(SHOULD INHIBIT CLOCK) 


Ub65 

8700 

0599 



CL 

<RTSFLG 

CLEAR FLAG 

0567 

9800 

1185 



LDR 

$R1,<CBLOQP 


0569 

1900 

058 A 



5E2 

$K1,<T0N9 

IF NOT CONN, eOQP, BRANCH 

Ob65 

8752 




CL 

= $R2 


0B6C 

9580 

059F 

M. 


LAB 

$B1,<PSB 

ADDRESS OF P uHOULD BE TABLE 

0b6E 

9820 

QB9A 

T0N8 

LDR 

$Ri,<DSC.SR2 

GET VALUE OF LR2 

0570 

1900 

058A 



5E2 

$R1,< T0N9 

5 s DONE 

0b72 

9780 

05F1 



S|H 

$R1,<LR2CFG 


0574 

6 ABO 

0599 



INC 

<RTSFLG 

FLAG TU INHIBIT RTS, DIR CONN 

0576 

B38Q 

05A3 



LNJ 

$53,<LOAD 

LOAD AND EXECUTE 




* 

READ 

P FOR 

RECEIVE 


0576 

C380 

OF 66 



LNJ 

$54,<RPVLU 


057 A 

E870 

0270 



LDR 

$R6,~X»27G» 

SB 

057C 

E955 




CMR 

$R6,=$RS 


057D 

0903 




5E 

>$♦3 


057 E 

E3C0 

042F 



LNJ 

$B6,ERRDb 

invalid rcv request 




5 

READ 

P FOR 

TRANSMIT 


0580 

8AD3 




INC 

s$R3 

GET TRANSMIT CHANNEL 

0b61 

C380 

0F6B 



LNJ 

$54,<RPVLU 

INPUT P VALUE 

0583 

E86D 




LDR 

$R6,$B1.+$R2 

GET SHOULD Bt 



TITLE DCMS3* 

•REV A* 
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003085 

0084 

0956 



CMR 

$R5,=$R6 



003086 

0685 

0283 



6gE 

>$ + 3 



003087 

0886 

E3C0 

0427 


LNJ 

$66 * ERR06 

MOKE THAN ONE XMIT REQUEST. 


003088 





* 




003089 

0688 

OF 80 

0B6E 


6 

< TQN8 



003090 





* 




003091 

GB8A 

6800 

1166 


T0N9 LOR 

$R3»<CHAN 



003092 

0B8C 

3E04 



APV 

$R3*=4 

BUMP LiNt NUMBER 

{ s 

003093 

0680 

1045 



LOV 

$R1 * sX * 45 * 


003094 

OttbE 

9780 

06F1 


STH 

$R1,<LR2CFG 

RESTORt CONFIGURATION 


003095 

0690 

0F80 

0AF8 


b 

<TQN1 

DO FOR NEXT HuLO LINE 


003096 

0692 

4843 

4C41 

2020 

MESG4 TEXT 

•HCLA LINE $• 




0695 

4049 

4E45 

2020 







2400 







003097 

0699 

0000 



KTifLG DC 

0 

FLAG 


003096 





* 




003099 





* LR2 VALUES 

TO OUTPUT 



003100 





* 




003X01 

069A 

0086 



DSC DC 

2 • 0086• 



003102 

0696 

00C2 



oc 

Z*0002• 



003103 

0690 

OOEB 



0501 00 

Z * GUE6• 

0 IF 6H40LE 


003104 

069D 

0000 



RE5V 

2*0 



003105 





* 




003106 





* P VALUE FOR 

! XMIT 



003107 





* 




003108 

0B9F 

0425 



PSB 00 

Z•0425 * 



003109 

06A0 

0425 



00 

4*0425* 



003110 

06A1 

0425 



DO 

Z * 0425• 



003111 

003112 

0BA2 

0000 



00 

0 



003113 





* 




003114 





it SUBROUTINE 

to set up cob* s* 

LOAD CHANNEL PROGRAM* AND START EXECUTION 


003115 





* 




003116 

06A3 

6F00 

2073 


LOAD SAVE 

<SAy **Z* 2052 * 

SAVE 63*66*R2*B1 



06A5 

2052 







003117 





# 




003116 





it FORM MASK 

OF AtL ONES EQuIVILENT TO CHAR SIZE 


003119 





at 




003120 

06A6 

8752 



OL 

= $R2 



003121 

06A7 

9800 

1174 


LOR 

$R1 * <H£AD 

GET FRAME CONFIG INFO 


003122 

06A9 

1806 



bEZ 

$Ri*>FMASK 

BRANCH IF SUPERVISORY CUNTRUL BIT SET 


003123 

OBAA 

9800 

U6A 


LOR 

$Rl,<CHSZ 

GET CHAR SIZE 


003124 

06AC 

9680 

0C91 


LAB 

$B1* <M5KT6L 

GET ADDRESS OF TABLE OF MASKS 


003125 

06AE 

A811 



LOR 

$R2 * $61•$R1 

GET MASK 


003126 





* 




003127 

06AF 

2008 



FMASK SUL 

$K2 * 8 



003128 

0660 

A47Q 

0Q3D 


UR 

$R2*sX*3D* 



0Q3129 

0662 

AF40 

0041 


STR 

$R2,XTMSK 

STORE MASK WORD 


00313U 

0664 

OFOO 

066b 


NOP 

< L P 1 6 



003131 





* 




003132 

0666 

9800 

0C16 


LOR 

$R1 $ <XRNGi 



003133 

0668 

8752 



OL 

5$R2 



003134 

0669 

1602 



bEVN 

$K1 * >LPT6 



003135 

066A 

8A02 



INC 

s$R2 



003136 

0666 

AFOO 

1196 


LPT 6 STR 

$R2,<UU0FLG 



003137 

0B6P 

9A00 

0C29 


AOO 

$R1,<XRNG2 

TOTAL RANGE IN BYTES 


003138 

066F 

1041 



SQR 

$R 1 * 1 

FORM RANGE IN WORDS 


003139 

06C0 

9FQ0 

116C 


STR 

$R1*<KANGE 


& \ 

003140 





* 




003141 





* MODIFY CONTROL IF CONNECTOR 

OR EXTERNAL LOOP 


003142 





* 




003143 

06C2 

9800 

1185 


LOR 

$Rl$ <06L00P 

GET CONNECTOR LOOP FLAG 


003144 

06C4 

1900 

0601 


6E2 

$R1,<LCT7 



003145 

0BC6 

9800 

0699 


LOR 

$R1*<RT5FLG 



003146 

06C8 

1989 



6NEZ 

$R1* >LCT 7 

BRANCH FUR NO RTS* DIR* CONN. 


003147 

0609 

9800 

06F1 


LOR 

$R1,<ER20FG 

GET LR2 INFO 


003148 

06C6 

9570 

fbff 


A NO 

$R1*=Z*F6FF» 

5TRIP UFF TEST 


003149 

QBCD 

9470 

4800 


OR 

$Rl,sZ*4800* 

SET DIRECT CONNECT % RTS 


003150 

06CF 

9F00 

06F1 


STR 

$R1*<LR20FG 



003151 

OBDi 

6700 

0B99 


L0T7 CL 

<RT SFLG 



003152 

06D3 

9800 

1184 


LOR 

$R1 * <XLQQP 

GET EXTERNAL LOUP FLAG 


003153 

0605 

1900 

0600 


bEZ 

$R11 <LPT3 



003154 

0607 

9800 

0BF1 


LOR 

$R1*<ER2CF6 



003155 

0609 

9570 

F3FF 


AND 

$R11 »Z•F3FF* 

STRIP OFF TESf * DIRECT CONNECT 


003156 

0606 

9F00 

06F1 


STR 

$R1 * <LR20FG 



003157 





* 




003156 

0600 

6600 

1166 


LPT3 LOR 

$R3 * <CHAN 



003159 

06DF 

C380 

OEEC 


LNJ 

$64,<GENITZ 

INITIALIZE 


003160 





* 




003161 





# 




003162 





* SEND OUT LOT 



003163 





it 




003164 

ObEi 

6360 

10EB 


LNJ 

$B3 *<SET LCT 



003165 

06E3 

06E5 



00 

<LOT 1 

LCT TABLE FOR THIS TEST 


003166 

06E4 

QFA7 



6 

>TST1A 



003167 





* 




003168 





* LCT TABLE 




003169 





* 




003170 

06E5 

0206 



LCT1 00 

Z * 0206• 

P* MSB 


003171 

06E6 

0007 



PROV 00 

Z * 0007 * 

P* LSB 


003172 

06E7 

0426 



00 

Z * 0426 * 

P* MSB* XMIT 


003173 

QBE8 

0027 



00 

Z * 0027 * 

P, LSB* XMJT 


003174 

G6E9 

oooc 



00 

Z*000C» 

channel 


003175 

06EA 

OOOD 



00 

2*0000* 

LEVEL 


003176 

06E6 

002C 



oc 

Z * 0U2C * 

CHANNEL 


00317.7 

06EC 

002D 



00 

Z * 0020* 

LEVEL 


003178 

06E0 

0023 



00 

Z'0023' 

ORO RESIDUE 1* XMIJ 


003179 

06EE 

0024 



00 

Z * 0024 * 

CRC RESIDUE 2* XMIy 


003180 





* 




003181 





* CONFIGURABLE PARAMETERS 



003182 





* 




003183 

06EF 

0003 



PAR6YT 00 

X•0003» 

BYTE SIZE FOR LAST BYTE XMll 


003184 

06F0 

0004 



ROVRES DC 

X * 0004» 

RESIDUE FOR EAST BYTE* RUV 


003185 

0BF1 

C714 



LR20FG 00 

Z * 0714• 

LR2 


003186 

GBF2 

0017 



LR6RCV 00 

Z * 0017• 

CONFIG (LR6) 


003187 

06F3 

0037 



LR7XMT 00 

2 * QU37 * 

XMIT CONFIG (LR7) 


003188 

G6F4 

FF3D 



XTMSK 00 

Z*FF30* 

WORD SIZE MASK 


003189 

06F5 

003C 



T ACC DC 

2*0030* 

XMIT ACTION CHAR COUNT „ „ 


003190 

06F6 

0019 



UFMONT 00 

X * 0019 * 

ACTION FRAME COUNTER - XMIT 


003191 

G6F7 

003E 



ACTFLG OC 

Z * 003E * 

ACTION FLAG 

JT'\- 

003192 

06F8 

0010 



RAC OC 

2*0010* 

RECEIVE ACTION CHAr COUNT 

m 

003193 

G6F9 

00 IB 



FRMONT 00 

Z * 0016* 

FRAME COUNT* KCV 

1 7 

003194 

OBFA 

00 3 F 



IFM 00 

Z * 0 0 3 F * 

FILE STATE* BIT 0 * IFM* BIT 1 # INITIAL 













TITLE DCMS3, 

•REV A* 
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003195 




* 


BITS 

2 - 7 = RCV AC I ION FRAME COUNT ^ 

003196 

OBFb 

0039 


XTtMP 

DC 

2*0039* 

INITIALLY FLAG TO READ XMU REV* 0 = DON*T• 

003197 




* 



AFTERWARDS USED AS XMIT TEMP LOCATION 

003196 




* 




m 003199 




* CHANNEL PROGRAM WORK LOCATIONS 


H 003200 




* 




003*01 

OBFC 

0018 



DC 

2*0018* 

CHAR COUNTER* RCV 

003*0* 

OBFD 

0038 



DC 

*•0038* 

CHAR COUNTER* XMIT 

003*03 

OBFt 

OOOE 



DC 

Z'OOOE* 

LR5 STURAGE* RCV 

003*04 

OBFF 

0021 



DC 

2 * 002E * 

LR5 STURAGE* XMIT 

003*05 

ocoo 

001A 



DC 

2*001A* 

LR7* RCV 

003*06 

0C01 

001E 



DC 

**001E* 

XMIT FW REV SIORAGe 

003*07 

OCO* 

001F 



DC 

2 * 001F * 

RCV FW RbV STuRAGE 

003*08 




4 




003*09 

0C03 

003B 



DC 

2 * 003B' 

XMIT FRAME COuNT 

003*10 

0C04 

001C 



DC 

2 * 001C* 

REC TEMP LOC 

003211 

0C05 

003A 



DC 

2 • 003A* 

ERROR CODE 

003*12 




* SPARE 



003*13 

0C06 

0002 



DC 

2*0002* 


003214 

OCO 7 

0022 



DC 

2*0022* 


003215 




# 




003216 

0C08 

0000 



RESV 

3*0 


003*17 




# 




003*16 




* SEND 

OUT CHANNEL PROGRAM 


003*19 




* 




003*20 

OCOB 

8A03 


TST1A 

INC 

= $R3 

GET XMIT CHANNEL 

003*21 

OCOC 

9380 

1095 


LNJ 

SB1*<SDATA 

SEND DATA 

003222 

OCOt 

11F F 



DC 

<CCP1 

RCV CHANNEL PROGRAM 

003223 

OCOF 

01AA 



DC 

(CCP2-CCP1)*2 


003224 

OCIO 

0200 



DC 

X * 200* 

RAM ADDRtSS 

003225 

0C11 

0000 



DC 

0 

EVEN CPU ADDRtSS 

003*26 




# 




003227 




* SEND 

OUT XMIT CHANNEL PROGRAM 


003226 




* 




003229 

0C12 

9380 

1095 


LNU 

SB 1*<5DAT A 


003*30 

OC14 

12D4 



DC 

<CCP2 

XMIT CHANNEL PROGRAM 

003231 

0C15 

018A 



DC 

(CCP3-CCP2)*2 

RANGE 

003*3* 

0C16 

0400 



DC 

X • 400 • 

RAM ADDRESS 

003233 

GC17 

0000 



DC 

0 

EVEN BYTt ADDkESS 

003*34 




# 




003235 




* 




00323b 




* SET l 

OP CCB* 

S FOR DATA XFER 


003*37 




* 




003238 

OC 18 

C380 

10FF 


LNJ 

SB4 * <MCCB 

MAKE CCB FOR XMIT 

003239 

0C1A 

1160 


XADD1 

DC 

<DUMMY 

DATA ADDRESS 

003240 

OClb 

0000 


XRNG1 

DC 

0 

RANGE 

003*41 

0C1C 

0040 


XC0N1 

DC 

2*0040* 

CCB CONTROL WuRD 

003*42 




* 




003243 

0C1Q 

8280 

0C1C 


LB 

<XC0N1*s2'0020 * 

GET LAST BIT 


0C1F 

0020 






- 003*44 

0C20 

0523 


TESTT 

BBT 

>TESTM 

BRANCH IF SET 

003245 




* 




003*46 




* GIVE 

SECOND 

CCB 


003247 




* 




003*46 

0C21 

9800 

out 


LDR 

SR 1 * <XC0N1 

GET CONTROL WuRD 

00324 9 

0C23 

82D1 



LB 

sSRi,=2*0020* 


m 

0C24 

0020 






1 003*50 

0C25 

05 It 



BBT 

>TEGTM 


003*51 

0C26 

C380 

10FF 


LNJ 

SB4*<MCCB 

MAKE CCB 

003252 

0C28 

1160 


XADD2 

DC 

<DUMMY 

XADDREGS 

003*53 

0C29 

0000 


XRNG2 

DC 

0 

RANGE 

003254 

0C2 A 

0060 


XC0N2 

DC 

X * 60 * 

CONTROL 

003*55 




* 




003*56 

0C2B 

6708 

0C28 


CL 

*<XADD2 

CLEAR ADDRESS ♦ CONTROL 

003*57 




# 




003*58 

0C2U 

6280 

0C2A 


LB 

<XC0N2,=2*0020* 

GET LAST BLOCK BIT 


0C2F 

0020 






003259 

0C30 

0513 



BBT 

>TESTM 

BRANCH IF SET 

003260 




* 




003261 




* GIVE 

3D CCB 



003262 




* 




003*63 

0C31 

C380 

10FF 


LNJ 

SB4 * <MCCB 

MAKE CCB 

003*64 

0C33 

1160 


XADD3 

DC 

<DUMMY 


003*65 

0C34 

0000 


XRNG3 

DC 

0 


003266 

0C35 

0060 


XCQN3 

DC 

X * 60 • 


003*67 




* 




003268 

0C36 

8708 

0C33 


CL 

*<XADD3 


003269 

0C36 

8280 

0C35 


LB 

<XC0N3 * =2 * 002Q' 

GET LAST BLOCK BIT 


0C3A 

0020 






003270 

0C3B 

0508 



BBT 

>TESTM 

BRANCH IF LAST BLOCK 

003*71 




* 




00327* 




* GIVE 

4TH CCB 


003273 




* 




003*74 

0C3C 

C380 

10FF 


LNJ 

SB4 * <MCCB 


003275 

0C3E 

1160 


XADD4 

DC 

<DUMMY 


003*76 

0C3F 

0000 


XRNG4 

DC 

0 


003277 

0C40 

0060 



DC 

X * 60» 

LAST* VALID 

003276 




* 




003*79 

0C41 

8708 

QC3£ 


CL 

*<XADD4 

CLEAR ADDRESS AND CONTROL 

003*80 

0C43 

8803 


TESTM 

DEC 

= $R3 

GET RCV CHAN BACK 

003281 




4 




003282 




* SET 

UP ONE 

RCV CCB FOR EACH 


003283 




* XMIT 

CCB, i 

A RCv CCB IS X»400• 

HIGHER IN MEMORY TH^n CORRESPONDING 

003284 




* XMIT 

CCB, 



003285 




4 




003286 

0C44 

C380 

1QFF 


LNJ 

SB4 * <MCCB 

MAKE CCB 

003*87 

0C46 

1C00 


RADD1 

DC 

<rtb 

RECEIVt BUFFER 

003*86 

0C47 

0000 


RRNG1 

DC 

0 

RANGE 

003289 

0C48 

0040 


RC0N1 

DC 

X»40 * 

VALID 

003290 

0C49 

8280 

0C48 


LB 

<RCUN1*=2*0020* 

GET LAST BIT 


QC46 

0020 






003*91 

0C4C 

0518 



BBT 

>TESTY 

BRANCH IF SET 

003292 




* 2ND RECEIVE 

CCB 


003*93 

OC40 

C380 

10FF 


LNJ 

SB4,<MCCB 

MAKE CLB 

003294 

0C4F 

1C00 


RADD2 

DC 

<RTb 

ADDRESG 

003295 

0C50 

0000 


RRNG2 

DC 

0 

RANGE 

003296 

0C51 

0040 


RC0N2 

DC 

X • 40 • 

VALID 

003297 

0C5* 

8280 

0C51 


LB 

<RCUN2*=2*0020* 

GET LAST BIT 

m 

0C54 

0020 






1 003296 

0C55 

050F 



BBT 

>TESTY 

BRANCH IF SET 

003*99 




* THIRD CCB 



003300 

0C56 

C380 

10FF 


LNJ 

$B4,<MCCB 


003301 

0C56 

1C00 

* 

RADD3 

DC 

<RTb 
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003302 

0C59 

0000 



RRNG3 

DC 

0 



003303 

0C5A 

0040 



RC0N3 

DC 

X • 40 • 

VALID 


003304 

0C5B 

8280 

0C5A 



LB 

<RCON3*5Z»0020* 

GET LAST BIT 



0C5D 

0020 








003305 

0C5E 

0506 




BBT 

>TESTY 

BRANCH IP SET 

3 ' 

003306 





* MAKE 

4TH CCB 


’4 J 

003307 

0C5F 

C380 

10FF 



LNJ 

$B4,<MCCB 



0Q3308 

0C61 

1C00 



RADD4 

DC 

<RTB 



003309 

QC62 

0000 



RRNG4 

DC 

0 



003310 

0C63 

0060 



RCQN4 

DC 

X • 60 • .. 

LAST* VALID 


003311 





* 





003312 





* 





003313 





* FILL 

RECEIVE WITH DEFAULT 



003314 

0C64 

C380 

0F02 


TESTY 

LNJ 

$84»<FDFLT 



003315 





* 





003316 





* 





003317 





4 SHORTEN TIMEOUT FOR ABORT CASES 


003316 





* 





003319 

0C66 

9870 

01E0 



LDR 

$R1*=480 



003320 

0C68 

A870 

0006 



LDR 

SR2.s6 



003321 

0C6A 

A900 

116C 



CMR 

$R2»<RANGE 



003322 

0C6C 

0203 




BL 

>TESTV 

BRANCH IF RANLiE >6 


003323 

0C6D 

9870 

0016 



LDR 

$Rlts24 

200 MS DELAY 


003324 

0C6F 

9F00 

0C8C 


TESTV 

STR 

S>R1 *<T IMOUT 



003325 





* 





003326 





* START 10 TO 

START XMIT CHANNEL 

PROG. INSURES 


003327 





* START CQN0IT10N IS IN OESiREP 

STATE 


003326 





* 





003329 

0C7 1 

8AD3 




INC 

= $R3 



003330 

0C72 

C360 

OFOB 


TESTU 

LNJ 

$B4,<CHCT 

DO channel control 


003331 

0C74 

OF 82 




B 

>$♦2 



003332 

0C75 

4000 




DC 

2*4000* 

START 10 


003333 





* 





003334 

0C76 

88D3 




DEC 

= $R3 

GET BACK RCV 


003335 





* 





003336 





* SYNCHRONIZE 

WITH RTC AND GIVE 

ENOUGH TIME FOR INITIAL ILS CHAR'S TO OCCUR 


003337 





* 





003336 

0C77 

8700 

0000 

X 


CL 

<ZHRTCI 

RTC RESET VALUE 


003339 

0C79 

1C06 




LDV 

SR 1 » = 6 



003340 

0C7A 

9F00 

0000 

X 


STR 

$R1♦<ZHRTCL 

LEVEL 


003341 

0C7C 

9FQ0 

0000 

X 


STR 

$R1 * <ZHRT CC 

RTC 


003342 

0C7E 

0004 




RTCN 




003343 

GC7F 

1C01 




LDV 

$KUsl 



003344 

0C80 

9900 

0000 

X 

TESTX 

CMR 

SR 1» <ZHRTCC 



003345 

oca * 

0981 

FFFD 



BNE 

TESTX 

BRANCH IF HASH*T CHANGED 


003346 

0C84 

0005 




RTCF 


SHUT OFF CLOCK 


003347 





* 





003346 





* START I/O TO START RCV CHANNEL 

program 


003349 





4 





003350 

0C85 

C380 

OFOB 



LNJ 

$B4 * <CHCT 

DO CHANNEL CONTROL 


003351 

0C87 

0F82 




B 

>$♦2 



003352 

0C86 

4000 




DC 

2 * 4000 * 

START I/O 


003353 





* 





003354 

0C89 

C380 

0F1D 



LNJ 

$B4 * <TEST 

TEST FUR STATES COMPLETE 


003355 

0C8B 

0F62 




b 

>$♦2 



003356 

0C8C 

01E0 



T1MQUT 

DC 

480 

TIMEOUT AFTER 4 SEC OR 200 MS 

v ■ \ 

003357 

0C8D 

8F80 

2073 



RSTR 

<5Ay1 = 2*2052 * 




0C6F 

2052 







V / 

003356 

GC90 

8383 




JMP 

SB3 


X - ... ■■■/ 

003359 





* 





003360 





* MASK 

table 




003361 





* 





003362 

0C91 

0000 



MSKTBL 

DC 

0 

MASK FUR 8 BITS 


003363 

0C92 

0000 




DC 

0 



003364 

0C93 

0000 




DC 

0 



003365 

0C94 

0000 




DC 

0 



003366 

0C95 

0000 




DC 

X*0» 



003367 

0C96 

OOEO 




DC 

X • EO • 

5 BIT 


003366 

0C97 

OOCO 




DC 

X»CO* 

MASK FUR 6 BITS 


003369 

0C98 

0060 




DC 

X • 80 • 

MASK FOR 7 BI|3 


003370 

0C99 

0000 




DC 

0 

EXTRA 


003371 





a*********#****#***##****#*****###**** ********** *#*##*########*###*#### 


003372 





* 





003373 





* 





0Q3374 





* SUBROUTINES 

ARE CODED HERE 



003375 





* 





0033/6 





* 





003377 





# 





003376 





* READ AND PRINT FIRMWARE REV NO. 


003379 





* 





003380 

0C9A 

8F00 

UAL 


PREV 

SAVE 

<TMPSTR,sZ»1002» 

R3*b4 



0C9C 

1002 








003381 

0C9D 

3B00 

OCAO 



BEVN 

SR3»<PREV5 

BRANCH IF RCV CHANNEL 


003382 

0C9F 

88D3 




DEC 

= $R3 



003383 

0CA0 

8754 



PREV5 

CL 

s$R4 



003384 

0CA1 

C380 

OFOB 



LNJ 

$B4 * <CHCT 

DO CHANNEL CONTROL 


003385 

0CA3 

0F82 




B 

>$ + 2 



003386 

0CA4 

0100 




DC 

2*0100* 

CCB LIST RESEI 


003387 

0CA5 

9800 

11EA 



LDR 

$R1 *<ERMG+1 



003386 

0CA7 

9970 

2A2A 



CMR 

$R1, ? A**** 

SEE IF MLCP RlV 


003389 

0CA9 

0904 




BE 

>PREV2 

BRANCH IF MLCP REV NO. 


003390 

OCAA 

BF 54 




STR 

$R3*=$R4 



003391 

0CA6 

4F20 




MLV 

SR4,=X*20* 

FORM OFFSET FjR CHANNEL 


003392 

OCAC 

0F83 




B 

>PREV1 



003393 

OCAD 

C380 

OEEC 


PREV2 

LNJ 

$B4,<GENIT2 

GENERAL INITIALIZE 


003394 

OCAF 

CFOQ 

0C65 


PREV 1 

STR 

3>R41 <REVLOC 



003395 

OCBl 

9380 

10BF 



LNJ 

$B1 * <RDAT A 

READ DATA 


003396 

0CB3 

1C00 




DC 

<RTb 

TO HERE 


003397 

GCB4 

0020 




DC 

X * 20 * 

RANGE 


003398 

0CB5 

0000 



REVLOC 

DC 

0 

ADDRESS 


003399 

0C6t> 

0000 




DC 

0 

EVEN BYTE BOUnDRY 


003400 





4 





003401 






CALL 

ZV$TiFREV 

PRINT FIKMWARl REV 



0CB7 

FBCO 

0003 








0CB9 

B380 

0000 

X 



* 




OCBB 

0F80 









OCBC 

0B2B 







_ 

003402 

OCBB 

BFOO 

1178 



STR 

$R3 * < TEMP 


i \ 

003403 

OCBF 

3043 




SOR 

$R3*3 

GET LINE NUMBtR/4 

[i 

003404 

OCCO 

BB80 

1800 



LAd 

S>B3 * <SDB 


4 v 

003405 

0CC2 

2CFF 




LDV 

$K2 »=-I 



003406 

0CC3 

9800 

UEA 



LDR 

SR 1 * <EHMG +1 

GET TEST LABlE 


003407 

0CC5 

9970 

2A2A 



CMR 

$R 1 * sA * ** * 
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00340b 

0CC7 

0910 




BE 

>PKEV3 

BRANCH IF" MLCP REV NUMBER 

003409 

0 CC8 

2CFE 




LDV 

*R2*5~2 


.. 003410 






CALL 

ZVST tRPRT 

DISPLAY KCV 5 


0CC9 

FBCO 

0003 






I 

OCCb 

0380 

0000 

X 





■L 

OCCu 

0F80 








OCCE 

UF3 







003411 

OCCF 

BB8Q 

119E 



LAB 

$B3 *<RHCFW1 


003412 

0CD1 

9800 

1C0F 



LDR 

SRI ♦<RTB'*' 15 


003413 

QCD3 

9F00 

ICOO 



STR 

SRI *<RTB 

STORE FW REV 

003414 

OCOb 

OF 8F 




B 

>PREV3 


00341b 





PREV4 

CALL 

ZVST »XPRT 

DISPLAY XMIT * 


0 CD6 

FBCO 

0003 







0 CD8 

0380 

0000 

X 






QCDA 

0F80 








0CD6 

11 EC 







003416 

OCDC 

9800 

1C0F 



LDR 

$R1t<RTB+15 

GET FW RtV 

003417 

OCDE 

1068 




SAR 

$R1 *8 

ALIGN XMIT REV 

00341b 

QCDF 

8251 




NEG 

-SRI 

MAKE REV ♦ 

003419 

OCEO 

bB80 

119C 



LAB 

$B3»<XHCFW1 


003420 

0CE2 

9F00 

1 C00 



STR 

$R1,<RTB 


003421 





* 




003422 

0CE4 

9800 

1C00 


PREV3 

LDR 

SR 1*<RTB 

GET REV NUMBER 

003423 

0CE6 

9570 

OOFF 



AND 

$R1»5X*FF» 


003424 

0CE8 

9F33 




STR 

SRI»SB3.SR3 

STORE REV NUMo 

00342b 

0CE9 

9570 

OOEO 



AND 

$R1.=Z*Q0E0» 


003426 

OCEb 

1045 




SOR 

SRi»b 

ALIGN 

003427 

OCEC 

9F00 

1177 



STR 

SRlt<TPR 


00342b 

OCEE 

1900 

OCFC 



6 EZ 

SR1i<PREV6 

IF NO UPPER BIT BRANCH 

003429 






CALL 

ZVSIOt TPR 

TYPE 


OCFO 

FBCO 

0003 







0CF2 

0380 

0000 

X 






0CF4 

0F80 








OCFb 

1177 







003430 






CALL 

2VST *DASH 

TYPE DASH 


0CF6 

FBCO 

0003 







OCFb 

0380 

0000 

X 






OCF A 

0F80 








OCFb 

0036 







003431 





* 




003432 

OCFC 

9800 

icoo 


PREV6 

LDR 

SRlt<RTB 

GET REV NUMB 

003433 

OCFE 

9570 

001 F 



AND 

SRIt~Z*001F• 

STRIP TO LOW b BITS 

003434 

0000 

9 FOO 

1177 



STR 

$Ri*<TPR 

PUT BACK 

00343b 






CALL 

ZVSID*TPR 

PRINT NUMBER 


0002 

FBCO 

0003 







0004 

0380 

0000 

X 






0006 

0F80 








0007 

1177 







003436 

0008 

2780 

00)6 


SIT13 

B1NC 

$R2 *<PKEV4 

GO BACK AND DO FOR XMIT 

003437 





* 




00343b 





* IF PRINTING 

FIRMWARE REVi ALSO PRINT DA 1A SET aTATUS 

003439 





* 




003440 

OOOA 

6800 

1178 



LDR 

SK3»<TEMP 

GET BACK CHANNEL 

003441 

ODOC 

9800 

11EA 



LDR 

SR 1 »<ERMG+ 1 

GET TEBT LABLc, 

00344^ 

OOOE 

9970 

2 A2A 



CMR 

$R1 ,:=A***« 


jr 003443 

0010 

0913 




BE 

>51114 

BRANCH IF MLCP REV NO. 

I 003444 

0011 

9800 

1C07 



LDR 

SRI *<RTB+7 

GET STATUS 

[ 00344b 

0013 

1048 




SOR 

SR 1»8 

GET STATUS 

\ 003446 

0014 

9F00 

1177 



STR 

SR 1 * <TPR 


003447 






CALL 

ZVSTCtSTPT 

PRINT DATA SET STATUS 


0016 

FBCO 

0003 







0018 

0380 

0000 

X 






001 A 

0F80 








001 B 

0D32 







00344b 






CALL 

ZVSTHZ fTPR 

PRINT VALUE 


001C 

FBCO 

0003 







OOlt 

0380 

0000 

X 






0020 

OF 80 








0021 

1177 







003449 

0022 

0F87 




b 

>Sili2 


003450 

0023 

9800 

ICOO 


SIT14 

LDR 

$ri,<rtb 

GET REV 

003451 

0025 

9570 

OOFF 



AND 

$R1,=Z«00FF» 

STRIP 

003452 

0027 

9FQ0 

119A 



STR 

SRU<MLC"FR 

STORE MLC FIRMWARE REV NUMBER 

003453 





* 




003454 





* 




003455 

0029 

8F80 

11AE 


51T12 

RSTR 

<TMPSTR,sZ»1002* 



002 b 

1002 







003456 

002C 

8386 




UMP 

SB6 

RETURN 

003457 





* 




00345b 

0020 

2020 

4657 

2052 

FREV 

TEXT 

* FW REVS* 



0030 

4556 

2400 






003459 

0032 

4441 

5441 

2053 

ST PT 

TEXT 

•DATA SET STATUS 

sS* 


0035 

4554 

2053 

5441 







5455 

5320 

3D24 





003460 

0036 

202 D 

2024 


DASH 

TEXT 

» - $• 


003461 





* 




003462 





* 




003463 





* 




003464 





* FILL 

ASCENDING DATA LNJ *63, 

<facdta 

003465 





* 




003466 

0030 

8F00 

202 D 


FACDTA 

SAVE 

<SAV2t =2 •6040 * 

Rl#R2»ttl 


003F 

6040 







003467 

0040 

8751 




CL 

s SR 1 


00346b 

0041 

9b80 

1800 



LAB 

SB1»<SDB 


003469 

0043 

6752 




CL 

-SR2 


003470 

0044 

A700 



FACDT1 

STH 

SR2 9 $B1• + $R1 

FILL BUFFER 

003471 

004b 

6 A02 




INC 

= $R2 


003472 

0046 

9970 

0400 



CMR 

SR1 *-X * 400• 


003473 

0046 

09FC 




bNE 

>FACDT1 


003474 

0049 

8 F 80 

202 D 



RSTR 

<SAV2 t *2 * 6040 * 



0046 

6040 







00347b 

004V- 

8383 




JMP 

SB3 


003476 





* 




003477 





* GENERATE CRC FOR SEND BUFFER 


00347b 





* 




003479 





* 




003480 

0040 

1C06 



GCRC 

LDV 

SRl»-8 

CHAR SIZE IS 8 FOR CRC TEST 

003481 

004E 

7CFF 




LDV 

$K7 » =-1 


r 003482 

004F 

6753 




CL 

= SR3 

RANGE COUNTER 

003483 





* * BEGINNING 

OF CHAR LOOP 


003484 

0050 

9F 52 



CHLUP 

STR 

SR 1 * s$R2 


00348b 

0051 

02 B0 

1800 



LLH 

$R5 * <SD8.SR3 

GET BY I E 

003486 

0053 

6 A03 




INC 

~$R3 
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003487 
003488 
003489 
003490 
003491 
00349^ 
003493 
003494 
003498 
003498 
003497 
003498 
003499 
003800 
003801 
003502 
003303 
003504 
003805 
003508 
003507 
003508 
003509 
003510 
003511 
0035ia 
003513 
003514 
003515 
003518 
003517 
003518 
003519 
003520 
003521 
003322 
003523 
003524 
003523 
003528 
003527 
003528 
003529 
003530 
003531 
003532 
003533 
003334 
003533 
003538 
003537 
003338 
003539 
003540 
003541 
003542 
003543 
003344 

003545 

003548 

003547 

003548 

003549 

003550 

003551 

003552 

003553 

003554 

003555 

003558 

003557 

003358 

003559 

003560 


003562 

003563 

003564 

003565 

003866 

003567 

003568 

003569 

003570 

003571 

003572 

003573 

003574 

003575 

003576 

003577 

003578 

003579 

003580 

003581 

003882 

003583 

003584 

003585 

003586 

003587 

003588 

003589 

003590 


* LOAD BYTE 512E FOR LAST BYTE 

* 


0D54 

3DIF 



CMV 

$R3,=X*IF* 


0D55 

098C 



BNE 

>GRC1 

BRANCH IF NOT LAST BYTE 

0D56 

9800 

089E 


LDR 

$R1,<PCRC4 


0D58 

9570 

OOOE 


AND 

$R1*=X*E» 

STRIP TO LAST BYTE INFO 

0D5A 

1041 



SQR 

$Rl,l 


0D5B 

A810 

04AD 


LDR 

$R2,<TCBBS2»$R1 

CQNVERf BYTE CODE TO HEX 

0D5D 

2984 



BNE2 

$R2,>GRCi 


0D5E 

2C06 



LDV 

$R2,=8 

SET FOR 8 BITS 

0D5F 

OFOO 

0D50 

* 

NOP 

<CHLUP 


0D61 

3D20 


GRC1 

CMV 

$R3,=X*20» 


0D62 

0280 

0D6F 

ft 

BGE 

<RCLND 


0D64 

2700 

0D67 

BITLUP 

BDEC 

SR2,<GRC2 


0D66 

OFEA 



B 

>CHLUP 

DO NEXT CHAR 

0067 

E855 


GRC2 

LDR 

SR6,=$R5 


0D68 

E657 


ft 

XQR 

$R6,=$R7 

R7 HAS RESIDUE 

0D69 

5041 



SQR 

SR5,1 

SHIFT CHAR 

0D6A 

7041 



SOR 

SR7,1 

SHIFT RESIDUE 

0D6B 

6B79 



BEVN 

SR6,>blTLUP 


0D6C 

F670 

8408 


XQR 

SR7,=2*6408* 

OR WITH CCITT POLYNOMIAL 

0D6E 

0FF6 


£ 

B 

>BITLUP 


0D6F 

8657 


RCEND 

CPL 

= $R7 

COMPLEMENT CRC 

0D70 

1C01 



LDV 

$R1,»1 


0D71 

B857 



LDR 

$R3,=$R7 


0D72 

B790 

180F 


STH 

$R3,<SD6+X* F* *$R1 

STORE IN BUFFER 

QD74 

3048 



SOR 

$R3,8 

GET LE^T HALF OF Crc 

QD75 

6780 

1810 


STH 

$R3,<SDB+X»10* 

STORE 

QD7 7 

687Q 

00E2 


LDR 

$R3 , = 2 * 00E2 * 


QD79 

6790 

1810 


STH 

SR3,<SDB+X*10**$R1 


QD7B 

B870 

OOFO 


LDR 

$R3»= X * OOFO * 


0D7D 

6780 

1811 


STH 

3>R3,<5DB+X * 11* 


0D7F 

8384 



JMP 

SB4 



0D80 

8F00 

2073 

0D82 

FFFF 


0D83 

AB80 

1800 

0D85 

DC80 

OECF 

0D87 

8700 

116A 

0D89 

icoi 


0D8A 

82C5 

0001 

ODBC 

0040 


0D8D 

0592 


0D8E 

C290 

1174 

0D90 

1C00 


0D91 

4044 


0D92 

88D4 


0D93 

A092 


0D94 

9954 


0D95 

0907 


0D96 

8852 


0D97 

0001 


0D98 

8B52 


0D99 

0080 


0D9A 

A7DE 


0D9B 

0FF6 


0D9C 

8952 


0D9D 

0001 


0D9E 

A7DE 


0D9F 

A092 


ODAO 

8852 


0DA1 

0001 


0DA2 

A792 


0DA3 

8280 

1174 

0DA5 

8000 


0DA6 

0589 


0DA7 

A470 

0001 

0DA9 

8B52 


ODAA 

0080 


ODAB 

A792 


ODAC 

1 COB 


ODAD 

9F0O 

116A 

ODAF 

8AD1 


ODBO 

82C5 

0001 

0DB2 

0080 


0DB3 

0585 


0DB4 

A870 

OOFF 

0DB6 

A792 


0DB7 

8AD1 


0DB8 

82C5 

0001 


* DATA HEADER ROUTINE 

# 

* THIS SUBROUTINE FORMATS THE HEADER ON EACH FrAME BASED 

* ON THE FOLLOWING INPUTS; 

* 

* TCB, AFX, CFX, + LCF FOR XM1T LR7 

* FLAG HEAD WHICH IS INTERPRETED AS FOLLOWS 

* 

* bit 0 = 1 means supervisory CONTROL bit set 

* BITS 5-7 are THE TCB VALUE 

* BITS 8-11 ARE THE ADDRESS FIELD l,ENGTh 

* BITS 12-15 ARE THE LCF LENGIH 

* 

* THE SUBROUTINE ALSO STRIPS XMIT DATA 10 THE 

* BYTE SUE SPECIFIED IN THE FOLLOWING PRIORITY; 

* SUPERVISORY BIT»TC3>LR7 BITS 5,6*7 


GHEAD SAVE 


<5AVi2*FFFF» 


LAB $B2,<SDB 

LDB $B5,<PARPTR 

* ADDRESS FIELD 

CL <CHSZ 

LDV $R1,=1 

LB $B5 »1 *-X•40 * 

BBF >CFP 

LLH $R4,<H£AD*$Rl 

LDV $Rl ,=0 

SGR $R4 *4 

DEC -$R4 

ADPR LDH $R2,$B2.$Rl 

CMR $R1 »= $R4 

BE >EADF 


=$R2,=2 * 0080* 

$R2 ,$B2#♦SRI 
>ADPR 


$R2 ,$B2*♦SRI 


* CONTROL FIELD 


$R2,$B2,$R1 
=$R2,2*0001* 

SR2 ,3>B2 * SR 1 
<HEAD , =2•8000 * 

>CFP1 

*R2,=1 

s$R2 ,-2 * 0080 * 

$R2,SB2.$R1 
SRI,=8 

$R1,<CHS2 

-$R 1 

$B5»1,=X*80* 


$R2, = X * FF’ 

$R2,$B2.$R1 

-$Ri 


* TCB BYTE PROCESSING 
TCBP LB SB5«1 , = X* 20* 


SAVE ALL 


GET POINTER Tg PARAMETER LIST 
CLEAR CHAR SUE 
GET AFX BIT 

IF NO AFX, GO TO CONTROL FIELD 
GET HEAD INFO 

GET ADDRESS FIELD LENGTH 

PICK UP BYTE 


SET CONTINUATION BIT = 0 
COMPLEMENT MSB TO MARK 8 BIT DATA 

SET CONTINUATION BIT FOR LAST 


SET ITFF IND 5 0 
GET CFX BIT 


SET ITFF IND s 1 

SET MSB TO MARK 8 BIT DATA 


BIT SEI TO INDICATE AT *DCHS2* THAT 
MASK IS 8 BIT 


BUMP TO NEXT dYTE 
GET CFX 


SET SECOND CONTROL WORD 10 ALL ONES 
BUMP FOR CONTROL FIELD EXTENT ION 

get tcb bit Information 
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OPbA 

0020 







003591 

OPBb 

0580 

OPCC 


bbF 

<LCF P 

B s 

NO TCB 

003592 




* 





003593 

OPBP 

A280 

1174 


LLH 

$R2♦<H£AD 

GET 

TCB VALUE 

003594 

OPBF 

A570 

0007 


ANP 

$R2^7 

STR] 

|P 

003595 

0PC1 

2P03 



CMV 

$R2»= 3 

CHE< 

.K FOR BIT INVERSION 

003596 

GPC 2 

0907 



BE 

>TCBP1 

IF SO PON * T STORE CHAR S1ZT 

003597 

0PC3 

8980 

116A 


CM2 

<CHSZ 



003598 

0PC5 

0980 

0PC9 


BNE 

<TCbPl 

B 5 

CHAR SIZE ALREAOY SET 

003599 

GDC7 

AFOO 

116A 


STR 

$R2 * <CHSZ 



003600 




* 





003601 

0PC9 

8952 


TCBP1 

L 6 T 

s$R 2 t*X 9 80 * 

SET 

last BIT 


OPCA 

0080 







003602 

OPCb 

A792 



STH 

*R2,$B2.$R1 

PUT 

IN TCB 

003603 




# 





003604 




* LCF 

PROCESSING 



003605 

OPCC 

82C5 

0001 

LCFP 

LB 

$B5 • 1 1 =;X 9 01 9 




OPCE 

0001 







003606 

OPCF 

0580 

0DE1 


BBF 

<PCHS2 

B = 

NO LCF 

003607 

OPPi 

C800 

1174 


LPR 

$R4 9 <HEAP 



003608 

0PD3 

C570 

OOOF 


ANP 

$R4,=X*0F* 



003609 

0PD5 

2 C 01 



LPV 

$R2,=1 



003610 




* 





00361I 

0PP6 

P292 


LCFP 1 

LLH 

$R5*$B2#$R1 

GET 

BY IE 

0036 XL 

0PP7 

A954 



CMR 

$R2»sSR4 

CHECK IF LAST 

003613 

0PP8 

0906 



BE 

>ELCF 



003614 

0PD9 

8855 



LBF 

s$R5 » = X * 80 * 




OPPA 

0080 







003615 

OPPb 

P7PE 



STH 

3>R5 • $B2 • *$R 1 



003616 

OPPC 

8AP2 



INC 

= $R2 



003617 

OPDP 

OFF 9 



B 

>LCF Pl 



003616 




* 


=$R5fsX»80 9 



003619 

OPPE 

8955 


tLCF 

LBT 




OODF 

0080 







003620 

OPEO 

P7PE 



STH 

SR5»$B2•♦SRI 



003621 




* 





003622 




* SET 

BYTE SIZE 



003623 




* 





003624 

OPE 1 

C800 

U 6 A 

PCH5Z 

LPR 

SR4,<CHSZ 

GET 

char size 

003625 

0PE3 

4988 



BNEZ 

$R4 f >STPT A 



003626 

QDE4 

A845 

0001 


LPR 

SR2 *$B5*1 

GET 

XMIT LR7 

003627 

0 PE 6 

A570 

ooot 


ANP 

$R2.sX*E» 

STRIP 10 BYTE SIZE 

003628 

0PE8 

2041 



SOR 

$R2 *1 



003629 

0PE9 

C820 

04AP 


LPR 

$R4,<TCBBSZ.$R2 

PICK UP ACTUAu SIZE 

003630 

OPEb 

C570 

0007 

STPTA 

ANP 

$R4*=7 



003631 

OPEP 

CFOO 

116A 


STR 

$R4,<CHSZ 



003632 




* STRIP PATA 

TO SIZE 



003633 

OPEF 

A800 

116A 


LPR 

$R 2 r<CHSZ 



003634 

OPF1 

0820 

0E02 


LPR 

$R5 »<PMASK•$R 2 

GET 

MASK 

003635 

0PF3 

PFOO 

1176 


STR 

$R5 » <MASK 



003636 

0PF5 

A85 1 



LPR 

$R2,=SR1 

GET 

BY 1E INPEX 

003637 




* 





003638 

0PF6 

8754 



CL 

= SR4 



003639 

0PF7 

C0A2 


GDAT 8 

LPH 

SR4 * SB2•$R2 

get 

PA f A 

003640 

0PF8 

C500 

1176 


ANP 

SR4 * <MASK 

STRIP 10 SIZE 

003641 

OPFA 

C7EE 



STH 

$R4,$B2#*$R2 

STORE BACK 

003642 

0PF6 

A970 

0800 


CMR 

$R2 » = X 9 800 * 



003643 

OPFP 

09FA 



BNE 

>GPAT 6 

BRANCH IF MORt TO GO 

003644 

OPF E 

8F80 

2073 

GPAT7 

RSTR 

<SAV $Z 9 FFFF• 




OEOO 

FFFF 







003645 

0E01 

8384 



JMP 

$B4 



003646 




* 





003647 




* MASK 

TABLE 




003648 




* 





003649 

0E02 

OOFF 


PMASK 

PC 

X * F F • 

8 B 

ITS 

003650 

0E03 

0001 



PC 

1 

l B 

IT 

003651 

0E04 

0003 



PC 

3 

2 B 

ITS 

003652 

0E05 

0007 



pc 

7 

3 B 

TS 

003653 

0E06 

OOOF 



PC 

X • F* 

4 B 

ITS 

003654 

0E07 

Q01F 



PC 

X 9 1 F 9 

5 B 

ITS 

003655 

0E08 

003F 



PC 

X 9 3F 9 

6 B 

ITS 

003656 

UE09 

007F 



PC 

X»7F» 

7 B 

ITS 

003657 




* 





003658 




* 





003659 




* INVERT PATA 

ON A BYTE BY BYTE 

BASIS - ASSUMES LCF LENGTH =4 

003660 




* RANGE OF 

X * 1F 1 



003661 




* 





003662 

OEOA 

8F00 

2073 

IVRT 

SAVE 

<SAV»=Z 9 FFFF• 




OEQC 

FFFF 







003663 

OEOP 

2C05 



LPV 

SR2»s5 

BYTE 1 NptX 

003664 

OEOE 

F800 

089C 


LPR 

$R7 * <PCRC2 

GET 

RCV CONFIs 

003665 

0E10 

F570 

0007 


ANP 

$R7,s7 

STRIP TO BYE SIZE 

003666 




* 





003667 

Ot 12 

8700 

1178 

BYTTZ 

CL 

<TEMP 



003668 

0E14 

9857 



LPR 

$R1*s$R7 

NEW 

BYTE SIZE 

003669 

0E15 

4C01 



LPV 

$R4,sl 



003670 

OE 16 

4000 



SOL 

$R4«0 

PUT 

1 IN MSB gF BYJE 

003671 

0E17 

1C01 



LPV 

SRltsl 



003672 

0E18 

8 AD 2 



INC 

«$R2 



003673 

Ot 19 

P2A0 

1800 


LLH 

$R5»<SPB» $R2 

GET 

BYTE 

003674 

0E1B 

2P20 



CMV 

$R2*sX»20* 



003675 

0E1C 

0205 



BL 

>VEKT 



003676 

OtiP 

8F80 

2073 


RSTR 

<SAV»=Z»FFFF* 




0E1F 

FFFF 







003677 

0E20 

8384 



JMP 

$B4 

ALL 

PONE 

003678 




Ik 





003679 

0E21 

82P5 


VERT 

Lb 

s$R5 * 0 

GET 

BH LOW QRPER 


0E22 

0000 







003680 

0E23 

9E54 



SWR 

$R 1 * ~$R4 

GET 

MASK FOR HIGH QRPER 

003681 

0E24 

8 A 00 

1178 


LBS 

<TEMP,0 

PUT 

IN INVERTEP POSISTION 


0E26 

0000 







003682 

0E27 

9E54 



SWR 

$R1 * = $R4 



003683 

0E28 

8 A 00 

1178 


LBS 

<TEMP *0 

SET 

BUt LOWER ORDER 


0E2A 

0000 







003684 

0E2B 

1001 



SOL 

SRI * 1 



003685 

0E2C 

4041 



SOR 

$R4 9 1 

SET 

FOR NEXT BIT POSISTION 

003686 

0E2P 

9954 



CMR 

$Ri»=$R4 



003687 

0E2E 

0380 

0E21 


BLE 

<VEKT 



003688 

0E30 

0F80 

0E12 


B 

<BYTTZ 

PO NEXI BYTE 

003689 




Ik 





003690 




* 





003691 




* PASS 

TEST PARAMETERS ♦ FORMAT 

HEAPER 


003692 




* 







TITLE DCMS3, 

* REV A * 




PAGE 36 


003693 

0E32 

AF80 

OECF 

PASS 

5TB 

SB2»<PARPTR 

STORE POINTER TO PARAMETERS 


003694 

0E34 

C380 

2000 


LNU 

$B4»<PLB 

PRINT LABLE 


003696 

003696 

0E36 

9872 


# 

LPR 

$R1*+$B2 

PICK UP RECEIVE CONFIGURATION 


003697 

0E37 

1008 



5QL 

SR1»8 

4'^ 

00369b 

0E38 

9470 

0017 


OR 

$Rlt*X , 17* 



003699 

0E3A 

9F00 

0BF2 


5TR 

$R1,<LR6RCV 


4 , 

003700 

0E3C 

9872 



LPR 

SRI*+$B2 

PICK UP XM1T CONFIGURATION 


003701 

0E3P 

9F52 



5TR 

SRI»»$R2 


003702 

0E3E 

A570 

OOOE 


AND 

$R2*sX*E» 

XMIT CHAR SIZE 


003703 

0E40 

1008 



50L 

$R1 *8 


003704 

0L41 

9470 

0037 , 


OR 

$R1*5X»37* 



003706 

0E43 

9F00 

0BF3 


5TR 

$Rlt<LR7XMT 



003706 

0E45 

9802 

OOOF 


LPR 

SRI»$B2 

GET LAST BYTE INFORMATION 


003707 

0L46 

9570 


AND 

$R1*=X*F* 


00370b 

0E48 

9780 

OBFO 

PAS5D 

5TH 

$R1,<RCVRES 



003709 

0E4A 

1008 



50L 

$R1 f 8 



003710 

QE4B 

9470 

0003 


OR 

$Rl*s3 



003711 

0E4D 

9F00 

OBEF 


5TR 

SRl*<PAR6YT 

PARTIAL BYTE INFORMATION 


003712 

0E4F 

9872 


PAS5A 

LPR 

SR1t♦$B2 

GET FILL MOPE 


003713 

0E50 

1008 



SOL 

SRI *8 


003714 

0E51 

9470 

003F 


OR 

$R1t«X* 3F * 



003716 

OE53 

9570 

EOFF 


AND 

$R1^Z*E0FF* 

STRIP TO PERTINENT BITS 


003716 

0E55 

9F00 

OBFA 


STR 

$R1 * <IFM 


003717 

0E57 

9872 



LPR 

SR 1» *$B2 

PICK UP LR2 CUNTROl 


00371b 

0E58 

1008 



SOL 

SRI *8 


003719 

0E59 

9470 

0014 


OR 

SRlt-X»14» 



003720 

003721 

0E5B 

9F00 

0BF1 

* 

STR 

SRI *<LR2CFG 



003722 

0E5D 

9872 



LPR 

$Rl*+SB2 

GET ACTION FLAG 


003723 

0E5E 

9780 

0BF7 


STH 

SRIt<ACTFLO 


003724 

0E60 

9082 



LPH 

SR1*$B2 

RCV FRAME 


003726 

0E61 

9570 

0Q3F 


AND 

SRI »5=X # 3F f 



003726 

0E63 

9480 

OBFA 


ORH 

SR1*<IFM 



003727 

0E65 

9780 

OBFA 


STH 

$R1*< J FM 



00372b 

0E67 

9872 



LPR 

SR1 * + $B2 

RCV AC 1I UN CHAR COUNT 


003729 

0E68 

9780 

0BF8 


STH 

$Rlt<RAC 


003730 

0E6A 

9082 



LPH 

SRI»SB2 

XMIT ACTION RvV FRAME 


003731 

QE66 

9780 

0BF6 


STH 

SRI*<UFMCNT 


003732 

0E6D 

9872 



LPR 

SRU + SB2 



003733 

0E6L 

9780 

QBF5 


STH 

SRI»<TACC 

XMIT ACTION CHAR COUNT 


003734 

0E70 

9CF2 



LPB 

SB1* +SB2 

PICK UP ADDRESS 


003736 

0E7 1 

9F80 

0C1A 


STB 

SB1»<XADD1 


003736 

0E73 

CBC1 

0400 


LAB 

$B4»SB1.X*400* 



003737 

0E75 

CF80 

0C46 


STB 

SB4 » <RAPP1 



00373b 

0E77 

9872 



LPR 

SR 1 * + SB2 

PICK UP RANGE 


003739 

0E78 

9F00 

QClb 


STR 

SRIt<XRNGi 


003740 

0E7A 

A280 

0BF7 


LLH 

SR2*<ACTFLG 

GET FLAG 


003741 

0L7C 

82P2 



LB 

= SR2 t sZ * 0008 f 



0E7D 

0008 






003742 

0E7E 

0582 



BBF 

>PASSB 



003743 

0E7F 

1E04 



APV 

SRli-4 

MAKE ROOM FOR CRC ♦ RESIDUE^ 


003744 

0E80 

9F00 

0C47 

PASSB 

STR 

SR 1»<KRNG1 


003746 




* 




003746 

0E82 

6780 

0BE6 


OLH 

<PRCV 

RECEIVE P COUNT 


003747 

0E84 

8700 

0C29 


CL 

<XRNG2 


00374b 

0 E86 

8700 

0C28 


CL 

<XAPP2 



003749 

0 E88 

8700 

0C2A 


CL 

<XC0N2 



003750 

0E8A 

8700 

0C35 


CL 

<XC0N3 



003751 

0E8C 

875? 



CL 

s SR2 



003752 

0E8D 

9872 



LPR 

SRI*+$B2 

PICK UP CCB CUNTROl 1 


003753 

0E8E 

9F00 

0C1C 


STR 

SR1»<XC0N1 


003754 

0E90 

9F00 

QC48 


STR 

SR1»<RC0N1 



003755 

0E92 

82D1 



LB 

5$R1,sZ»0020» 

CHECK LAST BLuCK BIT 



0E93 

0020 






003756 

0E94 

0583 



BBF 

>CCbA 

BRANCH IF NOT LAST CCB 


003757 

00375b 

0E95 

OF80 

OECE 

* 

B 

<PASENP 

PONE 


003759 




* 





003760 

0E97 

9CF2 


COBA 

LPB 

SB1* + SB2 

PICK UP ADDRESS 


003761 

0E98 

9F80 

0C26 


STB 

SBlt<XAPD2 


003762 

0E9A 

CBC1 

0400 


LAB 

$B4»SB1.X*400» 



003763 

0E9C 

CF80 

0C4F 


STB 

$B4♦<RAPD2 



003764 

0E9E 

9872 



LPR 

SRI»+SB2 

RANGE 


003765 

0E9F 

9F00 

0029 


STR 

SR1»<XRNG2 


003766 

OEAi 

9F00 

0C50 


STR 

SR 1»<RRNG2 



003767 

QEA3 

A872 



LPR 

SR2»+ SB2 

CONTROL WORD 


00376b 

0EA4 

AF 00 

0C2A 


STR 

SR2*<XC0N2 


003769 

0EA6 

AFOO 

0C51 


STR 

SR2 *<RC0N2 



003770 

OEAb 

8754 



CL 

= SR4 



003771 

0EA9 

82P2 



LB 

=SR2t?Z*0020* 



003772 

OEAA 

0020 







OEAb 

0523 



BBT 

>PASENP 

BRANCH IF LAST BLOCK 


003773 

OEAC 

9CF 2 



LPB 

$61 * + S62 


003774 

OEAD 

9F80 

0C33 


STB 

SB!»<XAPP3 



003775 

OEAF 

CBCi 

0400 


LAB 

SB4 » SBl•X * 400 * 

GET RECEIVE ADDRESS 


003776 

0EB1 

CF 80 

0C58 


STB 

$B4,<RADP3 


003777 

0EB3 

9872 



LPR 

SRI **SB2 

RANGE 


00377b 

0EB4 

9F00 

0C34 


STR 

SR1*<XRNG3 



003779 

0EB6 

9F00 

0059 


STR 

SR1,<RRNG3 



003760 

OEbo 

9872 



LPR 

SRI»+SB2 



003781 

0 E 69 

9F00 

0035 


STR 

SRIf<XC0N3 



003782 

0E6B 

9 F 0 0 

005 A 


STR 

$R1»<RC0N3 



003783 

QEBD 

82P1 



LB 

5$R 1 ♦sZ 1 0020 1 




OtBE 

0020 





003784 

OEBF 

0500 

OECE 


BBT 

<PASENP 

BRANCH IF LAS) CCB 


003785 

0EC1 

9CF2 



LPB 

SB1*4$B2 


003786 

0EC2 

9F8Q 

003E 


STB 

$B1*<XADD4 



003787 

0EC4 

CBCI 

0400 


LAB 

SB4 »SB1.X•400 * 



003788 

0EC6 

CF 80 

0061 


STB 

$B4,<KADD4 



003789 

0EC8 

9872 



LPR 

$Ri*+SB2 



003790 

GEC9 

9F00 

003F 


STR 

SRI»<XRNG4 



003791 

OECB 

9F00 

0062 


STR 

SR1» <KRNG4 



003792 

OECD 

9872 



LPR 

$Ri»+S62 

DUMMY TO BUMP RETURN 


003793 

OECt 

8383 


PASEND 

UMP 

SB3 


003794 




# 




003795 

003796 

OECF 

0000 


PARPTR 

* 

RESV 

SAF,0 

CURRENT PARAMETER POINTER 


003797 




* FIND ACTIVE HPLC CHANNEL. 

START SEARCHING Wl|H 


003798 




* CHANNEL 

NUMBER CONTAINED 

IN R3. 


003799 




# 



V i 

003800 




* 





003801 




* 

LNJ 

SB4 tFLN 






TITLE DCMS3* «REV A» PAGE 37 


0Q3802 





# 

B 

>RET NO MORE LINES 

Q036Q3 





* 


NORMAL RETURN 

003604 





* 




003606 





# 




003606 





# 




003607 

oedo 

8F4Q 

U4C 


FLN 

SAVE 

SAV1 * = Z * 4020 1 

R1*B2 


otp^ 

4020 






003606 

0ED3 

3042 




SOR 

$R3 *2 ■ 

GO FROM CHANNEL TO ADAPTER NUMBER 

003609 

0ED4 

AB80 

11B9 



LAB 

$B2*<ATLT 

CHANNEL TABLE 

003610 

0E06 

3004 



LN2 

CMV 

$R3 , ®X•4 * 

003611 

GED7 

030C 




BG 

>LN3 

NO MORE LINES 

003612 

0ED8 

9830 

1169 



LOR 

$R1*<ATLT.$R3 

003613 

OEDA 

9970 

21F6 



CMR 

$R1*5X«21F6* 

CHECK IF ID FuR BBHDLCl 

003614 

OEDC 

0906 




BE 

>LN4 

003615 

OEDO 

9970 

21F7 



CMR 

SRl»sX«21F7* 


003616 

OEDF 

0903 




BE 

>LN4 

IS BBH40LE 

003617 

OEEO 

8AD3 




INC 

= $R3 


003616 

0EE1 

0FF5 




B 

>LN2 

TRY NEXT LINE 

003619 

0EE2 

9874 



LN4 

LOR 

$R1* *$B4 

003620 

0EE3 

0EE5 

0EE6 

8FC0 

4020 

3002 

1139 


LN3 

RSTR 

SAV1 ♦ =Z * 4020• 


003621 




SOL 

$R3 *2 

GO FROM ADAPT NUMBER TO CHANNEL 

003822 

003823 

0EE7 

6384 



* 

JMP 

$B4 


003624 





* 


CHANGE CHANNEL 


003625 





* 




003826 

003627 





* *R3 -CONTAINS CHANNEL WANTED 

* $R4 -CONTAINS I/O CONTROL WORD TO bt CHANGc.0 

003626 





* 




003829 





* 

LNJ 

$B4 $ <CGSCH 


003830 





* 


003831 





* 




003632 

0EE8 

3006 



CGSCH 

SUL 

SR3 « 6 

SHIFT TO CHANNEL POSITION 

003633 

0EE9 

C453 




OR 

4R4,5$R3 

OR CHANNEL NUMBER INTO CUNTROLWORp 
SHIFT 10 NORMAL POSITION 

003834 

OEEA 

3046 




SOR 

SR3*6 

003835 

003836 

OEEb 

8384 



* 

JMP 

SB4 

GO BACK 

003637 





* GIVE 

MLCP 

GENERAL INITIALIZE 


003836 





* 




003839 

OEEC 

8FO0 

2020 


GENIT2 

SAVE 

<SAV2♦-Z’0808• 

B4 


OEEE 

0808 






003840 

0 EE F 

C380 

OEDO 



LNJ 

$B4 * <FLN 


003841 

0EF1 

0000 

11AA 



hlt 

NO ACTIVE LINES 

003642 

OEF 2 

C800 



LOR 

$R4,<C0NT9 

GET FUN CODE 

003643 

0EF4 

C380 

0EE8 



LNJ 

SB4*<CGSCH 

FORM 10 CONTROL 

003644 

0EF6 

8070 

8000 



10 

sZ 1 8000•, = $K4 

INITIALIZE 


0EF8 

0054 






003645 

0EF9 

0703 




BIOT 

SB6t<ERRMB 


003846 

OEFA 

E380 

OFBA 



LNJ 


003847 

OEFC 

C380 

1067 


ITZ 

LNJ 

$B4 f <0LAYLG 


003648 

003849 

OEFE 

8F60 

2020 


* 

RSTR 

<SAV2 *-Z •0808 * 



OF 00 

0808 






003650 

003651 

0F01 

8384 



* 

JMP 

$B4 


003852 





* FILL 

RECEIVE BUFFER WITH DEFAULT 


003853 





* 




003654 

OF 02 

FBCO 

0003 


FOFLT 

CALL 

ZV$F *RTB*OFLT»DRNG 



0F04 

D360 

0000 

X 






0F06 

0F80 








UFO 7 
OF 08 
0F09 

1C00 

1172 

nu 







003655 

003856 

OFOA 



# 

JMP 

$B4 



003857 





* OUTPUT CHANNEL CONTROL 


003656 





# 




003659 





* LNJ $B4 

tCHCT 


003660 





* B 

>$♦2 

RETURN 


003661 





* DC 

XX 

XX = CHANNEL CONTROL 

003662 





# 




003663 

QFOb 

8F00 

2020 


CHCT 

SAVE 

<SAV2 *-2 * OCOD* 

R4 *R5 *B5 *67*84 


OFOD 

OCOD 






003864 

OFOE 

0874 




LOR 

$R5«+$B4 

DUMMY 

003665 

OF OF 

0874 




LOR 

$R5*+$B4 

GET CONTROL WgRD 

003666 

OF 10 

C800 

11A8 



LOR 

SR4,<CQNT7 

FUN CODE FOR CCB CONTROL 

003667 

OF 12 

C380 

0EE8 



LNJ 

SB4,<CGSCH 

FORM 10 CONTROL WORD 

003666 

OF 14 

8055 




IQ 

=SR5*=$R4 

OUTPUT CCB CONTROL 


OF 15 

0054 







003669 

OF 16 

0703 




BIOT 

>CH4 


003670 

003671 

OF 17 

E380 

OFBA 

2020 


* 

LNJ 

$B6,<ERRMB 

ERROR 10 WAS nAK»Ed 

003672 

OF 19 

8F80 


CHZ 

RSTR 

<SAV2t=Z*0C0D» 



OF lb 

ocoo 






003673 

003674 

OF 1C 

8384 



* 

JMP 

SB4 


003675 





* WAIT 

FOR STATUS COMPLETE 


003676 





* LNJ $B4 

*<TEST 


003677 





* b 

$ + 2 

RETURN 


003676 





* DC 

XX 

TIMEOUT IN 120TH* S 

SEC. 

003679 





# 



003680 





* 




003681 

OF ID 
OF 1F 
0F20 

8F00 

4909 

0B60 

2020 


TEST 

SAVE 

<SAV2* =Z * 4909 1 

R1 *4,7*64.7 

003882 

0000 

X 


LAB 

$B5*<ZHPFR 

CLEAR B5 

003683 

0F22 

8751 




CL 

= SR1 


003684 

OF 23 

9F00 

0000 

X 


STR 

$Rl,<ZHRTCI 

ZERO OUT RTC RESET VALUE 

003685 

0F25 

1C01 




LDV 

$Ri*»1 

003686 

0F26 

9FOO 

0000 

X 


STR 

$R1*<ZHRTCL 

SET FOR RUPT LEVEL i 

003687 

0F28 

9874 




LOR 

$Ri, + $B4 

DUMMY 10 INCREMENT 64 

003686 

OF 2 9 

9874 




LOR 

$R 1 * +$84 

ra?“jL8& UE 

003689 

OF 2 A 

9F00 

0000 

X 


STR 

SRI*<ZHRTCC 

003890 

0F2C 

9F00 

1167 



STR 

$R1*<ELPS 

003691 

0F2E 

0004 




RTCN 



003892 

0F2F 

C380 

10D9 



LNJ 

$B4 *<INXT 

INPUT NEXT STATUS 

003693 

0F31 

8205 



TESTZ 

Lb 

5$R5**Z»1000* 

TEST FOR STAToS COMPLETE 


OF 32 

1000 






003694 

OF 33 

0511 




bBT 

>TESIZ1 

BRANCH IF COMPLETE 

003695 

OF 34 

8980 

0000 

X 


CMZ 

<ZHRTCC 

TEST RfC 

003696 

003897 

OF 36 

090E 



# 

BE 

>TESTZ1 

TIMEOUI 

003698 

OF 37 

C800 

11A7 



LOR 

$R4*<C0NT6 

FUNCTION CODE 
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title i 

DCMS3i 

♦REV A* 

003699 

OF 39 

C380 0EE8 

003900 

OF 3b 

8055 


OF 3C 

0054 

003901 

0F3D 

0774 

003902 

0F3E 

E360 OFBA 

003903 

0F40 

0000 


003904 

003903 

003906 

003907 

003906 

003909 
003910 
003911 
00391 2 
003913 

003914 

003913 

003916 

003917 

003918 

003919 

003920 

003921 

003922 

003923 

003924 

003925 

003926 

003927 

003928 

003929 

003930 

003931 

003932 

003933 

003934 

003935 

003936 

003937 

00^936 

003939 

003940 

003941 

003942 

003943 

003944 

003945 

00394b 

003947 

003948 

003949 

003950 

003951 

003952 

003953 

003954 

003955 

003956 

003957 

003956 

003959 

003960 

003961 

003962 

003963 

003964 

003965 

003966 

003967 

003966 

003969 

003970 

003971 

003972 

003973 

003974 

003975 

003976 


0F41 
0F43 
DF44 
OF 46 
0F48 
0F4A 
0F4C 
UF4E 
0F4F 
OF 51 
OF53 
0 F 5 5 
OF 56 
OF 58 

0F5A 
0 F 5 C 
0F5D 


0 F 5 E 
0F60 
OF'62 
OF 63 
0F65 
0F66 
0F68 
OF 6 A 


8F00 

4909 

9870 

9F00 

C800 

C380 

8000 

0054 

0700 

E38Q 

9800 

0005 

9200 

C380 


4909 

8384 


990C 

0205 

8706 

8A80 

8384 


LNJ 

SB4 *<CGSCH 



To 

=$R5i=$R4 

INPUT STATUS 


BIOT 

>TE3TZ 

BRANCH MEANS 


LNJ 

HLT 

$B6» <ERRMB 

INPUT STATUS 


* 

* INPUT RESIDUAL RANGE 

* 


* READ 

* 

# 

* 


P VALUE ♦ ERROR CODE 
LNJ SB4*<RPVLU 


again,. 


202D 


INRNG SAVE 

<SAv2 *=2*4909 * 


9999 


TEST21 LDR 

*Rlt=2»9999» 

DEFAULT 

1183 


STR 

$Ri«<RRNG 

RESIDUAL RANGE 

11A3 


LDR 

SR4,<C0NT2 

FC 

0EE8 


LNJ 

$B4 * <CGSCH 

OR IN CHANNEL 

1183 


10 

<RRNG i = $R4 

INPUT RANGE 

0F53 


BIOT 

<TESTZ2 


OFBA 


LNJ 

$B6i<ERRMB 

COMMAND WAS NAK•ED 

1167 


TEST22 LDR 

$R1f<ELPS 

get timeout value 



RTCF 


TURN OFF RTC 

0000 

X 

SUB 

S,Rli<2HRTCC 

SUBTRACT PRESENT 

0F5E 


LNJ 

$B4 $<UPTM 

UPDATE TIME TOTAL 

202D 


RSTR 

<SAV2t«2*4909* 




JMP 

SB4 

EXIT 



* UPDATE TIME 

TOTAL 


1198 


UPTM ADD 

$R1t<TTOT 


1198 


STR 

$Ki t<TTOT 




SON 

SRltl 


1191 


CMR 

$R1,<HKTZ 

COMPARE WITH TICKS 



BL 

>UPTM1 


1198 


CL 

<TTOT 

CLEAR TOTAL 

1199 


INC 

<SEC 




UPTM1, JMP 

* 

$B4 



0F6B 

8F00 

204D 

RPVLU 

SAVE 

<SAV4*»Z , 5858* 

R11314 B113 i4 

OF 60 

5856 




0F6E 

1C3A 



LDV 

$R1 i =X* 3A* 


mi 

9780 

1055 


STH 

$R1 * <DMPLOC 

SET TO READ ERROR CODE 
SEND OUT BYTE DIRECTOR 

B380 

10EB 


LNJ 

$B3 * <SETLCT 

0F73 

1055 



DC 

<DMPLOC 

OF 74 

B380 

108D 


LNJ 

$B3 ♦<INBYTE 

INPUT BYTE 

QF76 

DFOO 

1162 

' 

STR 

$R5 t <ERRCD 

STORE 

0F78 

8756 


A 

CL 

= SRo 


0 F 7 9 

D956 



CMR 

$R5i=$R6 


0F7A 

0903 



BE 

>LPTS4 


GF7B 

E3C0 

0032 

£ 

LNJ 

$B6 fERKDB 

FATAL ERROR DwRiNG CCP 

0F7D 

9870 

0006 

LPTS4 

LDR 

$K1i=6 


0F7F 

3B03 



BtVN 

$R3 i>PVLU2 

BRANCH IF READ 

0F80 

88D3 



DEC 

= $R3 

GET READ CHANNEL 

0F81 

1C26 



LDV 

SR 1i- 38 

0F82 

9780 

1055 

PVLU2 

STH 

$Ri»<DMPLOC 


0F84 

0F86 

B380 

1055 

10EB 


LNJ 

DC 

SB3i<SETLCT 

<DMPLOC 

SEND BYTE DIRECTOR 

0F87 

B380 

108D 


LNJ 

$B3i<INBYTE 

input byte 

OF 89 

DFOO 

1163 


STR 

*R5,<PVLU 

LSB OF P 

0F8B 

8AD1 



INC 

= $R1 


0F8C 

9780 

1055 


STH 

$R1i<DMPLOC 


0F8E 

B380 

10EB 


LNJ 

$B3i<SETLCT 

SEND BYTE DIRECTOR 

0F90 

1055 



DC 

<DMPLUC 


0F91 

B380 

108D 


LNJ 

SB3i<INBYTE 

INPUT BYTE 

0F93 

5048 



SQR 

$R518 

OF 94 

D400 

1163 


OR 

SR5 i <PVLU 

FORM LSB ♦ MSP 

0F96 

DFOO 

1163 


STR 

$R5 i <PVLU 


OF 96 

D570 

OFFF 


AND 

3>R5 t = Z *OFFF• 

STRIP TO 12 BITS 

OF 9A 

8F80 

204D 


RSTR 

<5AV4i = Z * 5858• 

0F9C 

5858 





OF 9D 

8384 



JMP 

$B4 



003977 




* READ 

DATA 

SET STATUS 


003976 

0F9E 

8F4Q 

109E 

DSSTA 

SAVE 

SAV3 * = 2 * 0008 * 

SAVE B4 


OFAO 

0008 






003979 

0FA1 

C800 

HAD 


LDR 

$R4 ♦ <CQNT12 

GET FUNCTION CODE 

OR IN CHANNEL NUMBER 

003980 

OF A3 

C380 

0EE8 


LNJ 

$B4 * cCGSCH 

003981 

OF A5 

8055 



10 

=$R5i=$R4 

INPUT DATA SET STATUS 

003982 

OF A6 

0054 





0FA7 

0703 



BIOT 

>$+2*$AF 


003983 

0FA6 

E38G 

OFBA 


k§V R 

$B6,<ERRMb 

COMMAND WAS NaK* ED 

003984 

OFAA 

8FC0 

1092 


SAV3i=Z♦0008• 



OF AC 

0008 




Done 

003985 

003986 

OFAD 

8384 


* 

JMP 

$B4 


003987 




* ERROR ROUTINES 


003986 




* 




003989 

OFAt 

8F00 

2053 

ERRDB 

SAVE 

<SAV5 »=Z•FFFF♦ 



OFbO 

FFFF 






003990 

OFBi 

9870 

4442 


LDR 

$R11 = A♦DB * 


003991 

0FB3 

9FOO 

11E9 


STR 

SRIi<ERMG 

SET UP ERR MESSAGE FOR DAUGHT, 

003992 

0FB5 

9853 



LDR 

SRii=$R3 

GET CHANNEL NUMBER 

003993 

GFBo 




SDK 

$R 111 

CONVERT TO LINE 

003994 

0FB7 

1165 


STR 

$R1»<LNBM 

003995 

003996 

0FB9 

0F8D 


* 

B 

>ERKQR 


003997 

OFBA 

8F00 

2053 

ERRMB 

SAVE 

<5AV5i=Z♦FFFF * 



OFBC 

FFFF 






003996 

OFBD 

9870 

4D42 


LDR 

$R11 = A * MB• 

SET ERROR MESSAGE FOR MOTHER 

003999 

OFBF 

9F00 

11E9 


STR 

$R1i<ERMG 

QQ4QQ0 

OFCi 

1CFF 



LDV 

SRli=-i 


BOATER 



TITLE DCMS3, *REV A* 
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004001 

004002 

004003 

004004 

00400!? 

004006 

004007 

004008 

004009 

004010 

004011 

004012 

004013 


0FC2 9F00 1165 
0FC4 0F80 0FC6 


* EER 

# 

*EELNJ SB 
ERROR STR 


STR SRI*<LNBM 

B <EKKOR 

EERROR PRINT ROUTINE 

3>B7 * <ERROK 


$R3i<CHAN 

$R1 * = -16 

$R4,-$B6 

SR4,-$B6 

$B6,<ERRl+4+$AF 

ZVSEK *$, ERMG 


SET LINE NUMBER TO NULL 
GO REPORT ERRuR 


INTIAUZE LOOP COUNTER 
DECREMENT SB6 
DO AGAIN 

STORE tRROR AuDRESS FOR tRROR CALL 


004014 

004015 

004016 


LDR $R2 *<LNBM 

BLZ $R2,>ERR6 

CALL ZV$I *LINEP 


GET LINE NUMBcR 
PRINT "LINE" 


CALL ZV$TD*LNBM 


PRINT THE LINE NUMBER 


004016 

004019 

004020 

004021 

004022 

004023 

004024 

004026 

004026 

004027 

004026 

004029 

004030 

00403^ 

004033 

004034 

004035 

004036 

004037 

004036 

0Q4039 

004040 

004041 

004042 

004043 

004044 

004045 

004046 

004047 

004046 

004049 


8751 

A810 1Q1E 
2900 0FF4 
AFOO 1055 
B380 10EB 
1055 

B380 108D 
5048 

DF10 103A 

mi 


9B80 103A 
9800 1180 
9F00 1177 
1CF8 


CFOO 1178 


* ERROR 

ERR6 

ERRP1 


PARAMETER routine 


* PRINT 


* FIRST 

* 

PCPV 


CL 

-$Ri 

LDR 

$R2 ,<LOCTAB« $Rl 

BEZ 

$R2 ,<PPAR 

STR 

$R2*<DMPL0C 

LNU 

$B3 * <SETLCT 

DC 

<DMPLOC 

LNJ 

$B3 *<INbYTE 

SOR 

$R5 * 8 

STR 

$R5*<0UTTAB.$R1 

£NC 

>Iri^pi 

ERROR 

PARAMETERS 

LAB 

$Bi*<OUTTAb 

LDR 

SRI,<CRLF 

STR 

$R1,<TPR 

LDV 

$R1,=-8 

LINE 

GETS CHAN PROG II 

LDR 

$R4,+$Bi 

SOL 

SR4,8 

LDR 

$R5,+$B1 

OR 

$R4 ,-$R5 


INDEX 

GET BY IE ADDReSS 
BRANCH IF DONt 
OUTPUT BYTE ADDRESS 


INPUT bYIE 
SHIFT BYTE OVeR 
STORE VALUE 


GET ADDRESS OF OUTPUT TABLE 
CR/LF 

NUMB ENTRIES / LINE 


FORM VALUE 


$R4,<TEMP 

ZV$THZ,TEMP,TPR 


004050 

004051 

004052 

004053 

004054 

004055 

004056 

004057 

004056 

004059 

004060 

004061 

004062 

004063 

004064 

004065 

004066 

004067 

004068 

004069 

004070 

004071 

004072 

004073 

004074 

004075 

004076 

004077 

004078 

004079 

004080 

004081 

004082 

004083 

004084 

004085 

004086 

004087 

004066 

004089 

004090 

004091 

004092 

004093 

004094 

004095 


C871 

5780 OFFF 
OFbO 1057 


$R2*<SPACE 
$R2,<TPR 
s$Rl 
s$Ri 
PCPV 
<GREG 
$R2t<CRLF 
$R2, <TPR 

$Bl, <SAV5 + 7#$AF +1 
SR5,=-9 

$R41 + $B1 
$R5,<PVL 
<ERR5 


SET CR/LF FOR SECOND LINE 


ALUES TO 

INPUT 

TAB DC 

Z •0637 * 

PC 

Z* 0737• 

pc 

Z•2637 * 

DC 

Z • 2 7 3 7 * 

pc 

Z'0E37 * 

PC 

Z*2E37 * 

DC 

Z»3A37* 

PC 

Z f 1437* 

DC 

Z*1A37* 

DC 

Z'3E37* 

DC 

Z * 1637 * 

DC 

4*3637* 

DC 

Z *IB37 * 

PC 

Z*3B37* 

DC 

Z * 17 3 7 * 

DC 

Z * 0337• 

D C 

Z * 3F37 * 

DC 

Z’1D37* 

DC 

Z*1937• 

DC 

Z * 3C37 * 

DC 

Z*1E37• 

DC 

Z *1F37• 

DC 

Z * 0437 * 

DC 

Z * 3D37• 

RESV 

4,0 


* TABLE OF 

# 

OUTTAB D£ 


VALUES TO READ IN 


P MSB* RCV 
P LSB, RSV 
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TITLE DCMS3» *REV At 


004096 
004097 
004096 
^ 004099 
004100 
004101 
004102 
004103 
004104 
004106 
004106 
004107 
004106 
004109 
004110 
004111 
0041U 
004113 
004114 
004115 
004116 
004117 
004116 
004119 
004120 
004121 
004122 

004123 

004124 

004125 

004126 

004127 

004126 

004129 

004130 

004131 

004132 

004133 

004134 

004135 

004136 

004137 

004136 

004139 

004140 

004141 

004142 

004143 

004144 

004146 

004146 

004147 

004146 

004149 

004150 

004151 

004152 

004153 

004154 

004155 

004156 

004157 

004156 

004159 

004160 

004161 

004162 

004163 

004164 

004165 

004166 

004167 

004166 

004169 

004170 

004171 

004172 

004173 

004174 

004175 

004176 

004177 

004176 

004179 
004180 
004181 
004182 
004183 
004184 
004185 
004186 
004187 
004186 
004189 
004190 
004191 
004192 
004193 
004194 
004195 
004196 
004197 
004196 
004 i 99 
004200 


103C 

0000 




DC 

0 

P MSB* XMIT 

1030 

0000 




DC 

0 

P LSB, XMIT 

103E 

0000 




DC 

0 

LR5 STATUS* RCV 

103F 

0000 




DC 

0 

LR5 STATUS* XMIT 

1040 

0000 




DC 

0 

ERROR CODE 

1041 

0000 




DC 

0 

LR2 CONTROL WORD 

1042 

0000 




DC 

0 

RCV LR7 • 

1043 

1044 

0000 

0000 




DC 

DC 

0 

0 

CCP FLAG 

CHAR COUNT (NpG) RCV 

CHAR COUNT (NtG) XMIT 

FRAME COUNT (NEG) f RCV 

1045 

0000 




DC 

0 

1046 

0000 

** 



DC 

0 

1047 

1048 

0000 

0000 




DC 

DC 

0 

0 

^rioN^s 1 <wE6,f xmit 

1049 

104A 

0000 

0000 




DC 

DC 

0 

0 

SIZE 01- LAST XMIT BYTE 

FILL* RCV ACTION FRAME COUNT 

RCV AClION CHAR COUNT 

1048 

0000 




DC 

0 

104C 

0000 




DC 

0 

XMIT ACTION FRAME COUNT 

1040 

0000 




DC 

0 

XMIT ACTION CHAR COUNT 

104E 

0000 




DC 

0 

XMIT FW REV 

104F 

0000 




DC 

0 

RCV FW REV 

1050 

0000 




DC 

0 

SIZE OF RESIDUE EXPECTED 

1051 

0000 




DC 

0 

UNUSED BIT MASK 

1052 

0000 




RESV 

3*0 

1055 

0037 



DMPLOC 

DC 

2*0037* 

BYTE ADDRESS JO OUTPUT 

1056 

0000 




DC 

0 

1057 

8FC0 

OFFB 


ERR5 

RSTR 

SAV5♦ =2 •FFFF• 

RESTORE REGISTERS 

1059 

FFFF 






105A 

0000 




hlt 


HALT AFTER ERROR 

1058 

8366 




JMP 

$B6 

RETURN 

105C 

2020 

204C 494E 


UNEP 

TEXT 

• LINES* 


105F 

4524 






1060 

8F00 

201 D 


PLAY 

SAVE 

<SAVl*=2*CC8C* 


1062 

CC8C 






1063 

9800 

1191 



LDR 

SRI»<HRT2 


/1065 
1066 

1044 




SDR 

$R 1*4 

SET FQR CLOCK/16 

0F87 




B 

>DLAY2 





* LONG 

DELAY 

(APPROX 225 MS) 


1067 

6F40 

0FB5 


DLAYLG 

SAVE 

SAV1 ♦ *Z *CC8C• 


1069 

CC8C 







106A 

9800 

1191 



LDR 

$Ri*<HRTZ 


106 C 

1041 




50R 

$R1*1 

GET CLOCK/4 

1060 

DB80 

0000 

X 

DLAY2 

LAB 

$B5 * <2HPFR 

CLEAR B5 

106F 

DF80 

0001 

X 


STB 

$B5 ♦<2H1SA2’*“$AF 

ZERO QOT LEV 1 INTERRUPT VECTOR 
SET RTC CURRENT VALUE 

1071 

9F00 

0000 

X 


STR 

$R1* <2HRT CC 

1073 

C380 

OF 5E 



LNJ 

$B4 * <UPTM 

UPDATE TIME 

1075 

8751 




CL 

= $Ri 


1076 

9F00 

0000 

X 


STR 

$R1 * <2HRTC1 

RTC RESET VALUE 

1078 

1 C01 




LDV 

$R1**1 

1079 

9F00 

0000 

X 


STR 

$R1*<2HKTCL 


1078 

C800 

UA7 



LDR 

$R4 * <CONT6 

INPUT STATUS FUNCTION 

1070 

C380 

0 EE8 



LNJ 

SB4 * <CGSCH 

PUT IN CHAN NUMBER 

107F 

0004 




RTCN 


TURN ON RTC TIMER 

1060 

8980 

0000 

X 

DLAY1 

CM2 

<2HRTCC 

1082 

6055 




IQ 

=$R5*=$R4 

INPUT STAT 

1063 

0054 



* HANG 

HERE I 

F MLCC DOES NOT 

RESPOND WITH A SECOND HALF READ 

1064 

DFGO 

115F 



STR 

$K5 *<STAT 

STORE LAST STATUS READ 

1086 

OAQO 

1080 



BAG 

<DLAY 1 

WAIT TILL DQNl 

1088 

0005 




RTCF 


TURN OFF TIMER 

1089 

8FC0 

GF93 



RSI R 

SAV1 * = 2•CC8C * 


1068 

CC8C 







108C 

8384 




JMP 

SB4 

RETURN 





* INPUT BYTE 



1080 

C8Q0 

11AB 


INBYTE 

LDR 

SR4 * <CONT10 

inbyte fc 

108F 

C380 

0EE8 



LNJ 

3>B4* <CGSCH 

OR IN CHAN 

1091 

8055 



ERRP2 

10 

=$R5*=$R4 

input byte 

1092 

0054 







1093 

07FE 




BiOF 

>ERKP2 


1094 

8383 




JMP 

SB3 






* BLOCK WRITE 

DATA TO RAM 






* 

LNJ 

$Bi* <SDAT A 






* 

DC 

DATA 

LOCATION OF DATA 





* 

DC 

RANGE 

NUMBER OF DATA BYTES 





* 

DC 

RAMAD 

RAM ADDRESS 





# 

DC 

EVEN 

0 s EVEN BYTE CPU ADDRESS 





* 



BII 15 = i FOR ODD BYTE START 





* R3 MUST CONTAIN THE CHANNEL 

NUMBER 

1095 

8 F00 

20 ID 


SDATA 

SAVE 

<SAV1 *-Z * FFBF* 

SAVE ALL BUT bl 

1097 

FFBF 







1098 

DCF 1 




LDB 

$B5 * + $B1 

GET ADDRESS OF DATA 

1099 

C871 




LDR 

$R4* 4-$Bl 

GET RANGt 

109A 

CFOO 

i 0A7 



STR 

$R4 * <SPRG1 

STORE RANGE 

109C 

0F80 

10A6 


SPRG4 

STB 

$B5 *<SPKG5 


1Q9E 

A871 




LDR 

$R2 * ♦$B1 

GET RAM ADDRESS 

109F 

AFOO 

10A8 



STR 

$R2*<SPRG2 

10A1 

9871 



LDR 

$Ri* + SB1 

LOAD SI ART BYTE INDEX 

10A2 

9570 

7FFF 



AND 

SRi**X•7FFF * 

10A4 

C380 

1 OFF 



LNJ 

SB4,<MCCB 

FORM CLB 

10A6 

1160 



SPRG5 

DC 

<DUMMY 

CPU ADDRtSS 

10A7 

0000 



SPRGl 

DC 

0 

RANGE 

10A8 

0000 



SPRG2 

DC 

0 

RAM ADDRE5S 

10A9 

C380 

OFOB 



LNJ 

SB4 * <CHCT 

GIVE CHANNEL CONTROL 

10A6 

0F82 




B 

>$♦2 

10AC 

0400 




DC 

X»400' 

BLOCK WRITE 





* PROGRAM AR1VES HERE FROM 5DATA OR RDATA AS WELL AS SPRG. 

10A0 

C380 

OF ID 


SPRG3 

LNJ 

SB4i<TEST 

WAIT FUR STATUS COMPLETE* OR 

10AF 

0F82 




B 

>$♦2 

iOBO 

QOOC 




DC 

12 

100 MS TIMEOUT 

lOBi 

82D5 




LB 

= SR5 * = X 11000 * 

GET STATUS COMPLETE BIT 
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1062 

1000 






004201 

1063 

0503 

0F6A 


BBT 

>$*2+$AF 


004202 

1064 

E380 


LNJ 

$B6 *<ERRM6 

STATUS COMPLETE NOT SET AFTER BLOCK WRITE 

004203 

1066 

6205 



LB 

=$K5*=7 


1067 

0007 






004204 

1066 

0583 



BBF 

>$ + 2«*$AF 


004205 

1069 

E380 

0F6A 


LNJ 

$B6 * <ERRMB 

ERROR ♦ PARITY^MEMORY*OR RESOURCES 

004206 

1066 

8F80 

2010 

5PRG7 

RSTR 

<SAV1»=Z»FF6F* 


106D 

FF6F 






004207 

004206 

106L 

8381 


****** 

JMP 

$B1 


004209 




* 




0042X0 




* BLOCK READ 

FROM RAM,- CHAN* NUMBER MUST BE IN K3. 

004211 




* 




004212 




* 

bc J 

$6i*<RDATA 


004213 




* 

INBUFF 

RANGE 

INPUT BUFFER ADDRESS 

004214 




* 

DC 

NUMBER OF BYTtS 

004U5 




* 

DC 

RAMAD 

RAM ADDRESS 

004216 




* 

OC 

EVEN 

0 s EVEN BYTE CPU ADDRESS 

004217 




* 



BIT 1 = I FOR ODD BYTE ADDRESS 

BI! 0 s 1 FOR NO DELAY AFTER STARTING 

004216 

004219 

004220 




* 

£ 



106F 

10C1 

10C2 

8F00 

FFBF 

DCFI 

2010 

ROATA 

SAVE 

<SAVUsZ*FFBF» 

SAVE EVERYTHING BUT Bl* 

004221 



LOB 

$65 * + $Bl 

GET IN BUFF ADO 

004222 

10C3 

0F60 

1000 


STB 

$B5*<RDTAi 

004223 

10C5 

C871 



LOR 

$R4 * + $BI 

GET RANGE IN dYTES 

004224 

10C6 

CFOQ 

1001 


STR 

$R4*<KDTA3 

004226 

10C6 

9871 



LOR 

$R1*+$BI 


004226 

10C9 

9F00 

1002 


STR 

$R1*<RDT A2 


004227 

10C6 

9871 

7FFF 


LOR 

$R1*+$B1 

PICK UP EVEN* ODD FLAG 

004226 

10CC 

9570 


AND 

$RUsX»7FFF» 

004229 

10CE 

C360 

10FF 


LNJ 

$B4 »<MCCB 

FORM CCB 

004230 

1000 

1160 


R0TA1 

OC 

<DUMMY 

CPU ADDRESS 

004231 

1001 

0000 


R0TA3 

OC 

0 

RANGE 

004232 

1002 

0000 


R0TA2 

OC 

0 

RAM ADDRESS 

004233 

1003 

C380 

0F06 

LNJ 

$64 * <CHCT 

ISSUE CHANNEL CONTROL 

004234 

1005 

0F82 



B 

>$♦2 

004235 

1006 

0800 



OC 

X • 800 • 

BLOCK READ 

004236 

004237 

1007 

0F81 

FF05 

* 

B 

SPRG3 

EXIT 

004236 




* 




004239 




* INPUT NEXT 

STATUS TO R5 


004240 




* 




004241 

1009 

8F00 

2010 

INXT 

SAVE 

<SAv1 * =2 •0008• 

B4 


1006 

0008 




004242 

10DC 

C800 

11A5 


LOR 

$R4, <CONT4 

GET CONTROL WORD For INPUT NEXT STATUS 

004243 

loot 

C38Q 

0EE8 


LNJ 

$64 *<CGSCH 

MODIFY FUR CHANNEL 

004244 

10E0 

8055 



IQ 

=$R5*=$R4 

GET NEXT STATUS 


10E1 

0054 





004245 

10E2 

0703 



BIOT 

>$+2 + $AF 


00424c 

004247 

10E3 

E380 

OFBA 

* 

LNJ 

$66 *<ERRMB 

INPUT NEXT STATUS WAS NAMED 

004246 

10E5 

OFOO 

1009 


NOP 

< INXT 


004249 

10E7 

8FC0 

0F35 


RSTR 

SAV1*52* 0008• 



10E9 

0008 






004250 

004251 

10EA 

8384 


* 

JMP 

$B4 


004252 




* SET 

UP LCT 

FOR CHANNEL SPECIFIED IN R3 

004253 




* 




004254 




* 


LNJ $B3«<SETLCT 


004255 




* 


-OC TABLE 


004256 




* 




004257 

10E6 

8F40 

0F41 

SETLCT 

SAVE 

SAV2 * = 2•E8E0• 

Ri*<R2*<R4*<B2 *<B1 


10E0 

E8E0 






004256 

10EE 

9CF3 



LOB 

$B1*+$B3 

GET ADDRESS OF TABLE 

004259 

10EF 

8751 



CL 

= $R 1 

004260 

004261 

10F0 

ABU 


* 

LCT4 

LOR 

$R2*$B1.$R1 

GET BY I E TO OUTPUT 

004262 

1 OF 1 

8AD1 


INC 

• $Ri 

004263 

10F2 

2985 



BNEZ 

$R2 * >LCT5 

BRANCH IP NOT AT END OF TABLE 

004264 

10F3 

8FC0 

0F39 


RSTR 

SAV2*=Z«E8E0» 


10F5 

teto 






004265 

004266 

10F6 

8383 


* 

JMP 

$B3 

RETURN 

00^267 

10F7 

C800 

bktt 

LCT5 

LOR 

$K4,<C0NT5 

FUNCTION CODE FOROUT LCT BYTE 

004266 

10F9 

C380 


LNJ 

$B4,<CGSCH 

FORM 10 CONTROL WORD 

004269 

10F6 

10FC 

1OFO 

8052 

0054 

07FE 


LCT3 

IU 

-$R2*=$R4 

OUTPUT BYTE 

004270 



BIOF 

>LCT3 

CHECK IF TAKEN 

GET NEXT BYTE 

004271 

004272 

10FL 

OF F'2 


* 

B 

>LCT4 


004273 




* 




004274 




* 

CCB 1 

FORMATION 


004275 




* 




004276 




* 

$R3 

- CONTAINS CHANNEL 

wanted 

004277 




* 




004276 




* 

LNJ 

$B4* <MCCB 


004279 




* 

OC 

CPU ADDRESS 


004280 

004281 




* 

* 

OC 

OC 

RANGE IN BYTES 

RAM ADDRESS NUMBER OR CHANNEL CONTROL WORD* 

004282 




* 




004283 




* 




004284 

10FF 

6F00 

2020 

MCCB 

SAVE 

<SAV2**Z*FDF4* 

SAVES $61*$B3 *$B2 *$B5 *$R?*$R5 *$R4 *R2 *6 $R] 


1101 

FDF4 





004285 

1102 

ACF4 



LOB 

$B2*+$B4 

LOAD $B2 WITH CPU ADDRESS 

004286 

1103 

0874 



LOR 

$R5 * + $B4 

GET RANGt 

004287 

1104 

A874 



LOR 

$R2*+$B4 

PUT RAM ADDRESS IN $R2 

004286 

1105 

0E04 



SW6 

$B5 * «$B4 

ALLOW 3»B4 TO BE USE IN SUBR. CALL 

004289 

1106 

C800 

UA2 


LOR 

$R4 *<CONTi 

LOAD $R4 WITH I/O CONTROL WORD 

004290 

1106 

C380 

0EE8 


LNJ 

$B4,<CGSCH 

004291 

110A 

8182 



IULD 

$B2*s$R4,=$R5 

OUTPUT ADDRESS AND RANGE 


1106 

0054 






HOC 

0055 






004292 

1100 

0703 



BIUT 

>$+2+$AF 

ERROR* IQLD WAS NAk*ED 

004293 

not 

E380 

OFBA 


LNJ 

$B6♦<tRRMB 

004294 

1110 

C800 

11A4 


LOR 

$R4 * <CONT 3 

LOAD $R4 WITH I/O CONTROL WORD 

PUT I/O CONTROL WORD IN $R4 

OUTPUT MLCC RAM ADDRESS 

004295 

1112 

C380 

0EE8 


LNJ 

$B4 *<CGSCH 
s$R2*=$R4 

004296 

1114 

8052 


MC62 

IU 


1115 

0054 





004297 

1116 

0703 



BIOT 

>$>2+$AF 

ERROR* OUTPUT CONTROL WAS NAMED 

SWAP FOR SUBR. RETURN 

004296 

1117 

E380 

OFBA 


LNJ 

$B6 * <ERRM6 

004299 

1119 

CE05 



SAB 

$B4,s$B5 
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00430U 

111 A 

6F80 

2020 


RSTR 

<SAV2 *~Z* FDF4 * 

RESTORE KEGS. 


.111C 

FDF4 






004301 

11 ID 

8384 



JMP 

$64 


004302 




# 




004303 




* 



/f 

004304 




# 

CONVERT RTC TICKS TO MILSEC. (i 

004303 




* 




004306 

1UE 

8F00 

2010 

TKSEC 

SAVE 

<SAVl*=Z»CQ8Q« 

SAVE RtGS. 


1120 

COSO 






004307 

1121 

CF51 



STR 

$R4 * »$R1 

DUPLICATE VALUE IN $Ri 

004306 

1122 

C600 

1193 


MUL 

$R4*<DI Vi 


004309 

1124 

CFOO 

1186 


STR 

$R4* <TLOC 


0043X0 

1126 

C851 



LOR 

$R4* s$RI 


0043 X X 

1127 

CBOO 

1194 


MUL 

$R4,<DIV2 


004312 

1129 

0370 

OOOA 


PJV 

$R4**1Q 


004313 

1120 

9600 

1195 


MUL 

$Rlt<DiV3 


004314 

112 D 

9370 

0064 


DIV 

$R1*s100 


004315 

112 P 

CAOO 

1186 


ADO 

$R4 * <TLGC 


004316 

1131 

CA51 



ADD 

$R4 * ~$RI 


004317 

1132 

CFOO 

U86 


STR 

$R4.< TLOC 


004316 

1134 

8F80 

2010 


RSTR 

<SAV1*=2 , CQ80 | 



1136 

0080 






004319 

1137 

8385 



JMP 

$65 


004320 




* 




004321 




* 




004322 




# 




004323 




*=====: 




004324 




* 




004325 




* 

CONVERT MS TO 6ITS/SEC/1Q (GIVEN CHAR. SUE 6 NUMBER) 

004326 




* 




004327 

1136 

8F00 

2010 

BPS 

SAVE 

<SAVit-Z»9F80» 

SAVE REGS. 


H3A 

9F80 






004326 

1130 

8756 



CL 

= $R6 

CLEAR $R6 FOR DIVIDE 

004329 

113C 

6800 

1168 


LOR 

$R3 ♦ <CHKCNT 

LOAD $K3 WITH NUMBER OF CHAR. 

004330 

113E 

8370 

OOOA 


DIV 

$R3 *s10 

GET CHAR/10 

004331 

1140 

F870 

03E8 


LOR 

$R7*slOOO 

CONVERSION FACTOR FOR MS TQC. 

004332 

1142 

7F08 



MLV 

$R7*=8 

MLVTIPLY BY CHARACTER SUE 

004333 

1143 

F300 

1186 


DIV 

$R7*<TL0C 

DIVIDE BY ACTUAL TJME IN MS 

004334 

1145 

FF55 



STR 

$R7**$R5 


004335 

1146 

0B53 



MUL 

$R5*s$R3 


004336 

1147 

OFOO 

1187 


STR 

$R5* <MSBS 


004337 

1149 

7000 



DOR 

$R7 *16 

SHIFT REMAINDER DOWN 

004336 

114A 

7F0A 



MLV 

$R7*slQ 


004339 

1146 

F354 



div 

$R7*=$R4 


004340 

114C 

FF55 



STR 

$R7*s$R5 


004341 

1140 

0653 



MUL 

$R5**$R3 


004342 

U4E 

0370 

OOOA 


Dj[V 

$R5 *5 10 


004343 

1150 

OAOO 

1187 


ADO 

$R5*<MS6S 


004344 

1152 

7000 



DOR 

$R7,16 


004345 

1153 

7F0A 



MLV 

$R7 * s10 


004346 

1154 

F354 



DIV 

$R7 * s$K4 


004347 

1155 

FB53 



MUL 

$R7 *s$R3 


004346 

1156 

F370 

0064 


div 

$K7 * = 100 


004349 

1156 

FA55 



ADO 

$R7 *~$R5 


004350 

1159 

FFOO 

1187 


STR 

$R7 *<MS6S 


004351 

1156 

8F80 

2010 


RSTR 

<SAV1*=Z*9F80» 



1150 

9F80 






004352 

USE 

8385 



JMP 

$B5 


004353 




a********************************************************************** 

004354 




* 




004355 




* 




004356 




* 




004357 




# 




004356 




* CONSTANTS 

AND STORAGE LOCATIONS 


004359 




* 




004360 

USE 

0000 


STAT 

DC 

0 

LAST SIATUS STORED HERE 

004361 

1160 

1160 


DUMMY 

DC 

<DUMMY 

DUMMY ADDRESS VALUE 

004362 

1161 

0000 


SPFLG 

DC 

0 

NON ZERO FOR 72 KB 

004363 

1162 

0000 


ERRCD 

DC 

0 

ERROR VALUE 

004364 

1163 

0000 


PVLU 

DC 

0 

CCP P COUNTER 

004365 

1164 

0000 


FRST 

DC 

0 

FRST TIME FLAo 

004366 

1165 

0000 


LNBM 

DC 

0 

LINE NUMBER 

004367 

1166 

0000 


CHAN 

DC 

U 

channel stored here 

004366 

1167 

0000 


ELPS 

DC 

0 

ELAPSED TIME 

004369 

1168 

0000 


CHRCNT 

DC 

0 

CHARACTER COUnT 

004370 

1169 

0000 


COUNT 

DC 

0 

COUNTER FOR TEST LOOPS 

004371 

U6A 

0000 


CHSZ 

DC 

0 

character sue storage 

004372 




* 



0 ->8* 1W *> i-7 

004373 

1166 

0000 


1 MASK 

DC 

0 

MASK FOR CHANNELS PRESEN 1 

004374 

U6C 

0000 


RANGE 

RESV 

1*0 


004375 

1160 

0000 


OEV10 

RE5V 

1*0 

DEVICE ID 

004376 

U6E 

FFFF 


ALLONE 

RESV 

1*-1 


004377 

U6F 

0016 


C16 

DC 

X * 16 • 


004376 

1170 

0000 


ADSTR 

RESV 

1*0 

MS 6, BITS OF DEVICE ADDRESS 

004379 

1171 

FCOO 


DADO 

DC 

Z»FCOO» 

DEFAULl DEVICE ID 

004380 

1172 

5555 


OFLT 

DC 

Z»5555* 

DEFAULl VALUE 

004381 

1173 

0400 


DRNG 

PC 

X 1 400 1 

DEFAULl RANGE 

004382 

1174 

0000 


HEAD 

DC 

0 

HEADER INFORMATION STORAGE 

004383 

1175 

0000 


1FLG 

DC 

0 

DATA INVERSION FLAG 

004384 

1176 

0000 


MASK 

DC 

0 

MASK 

004385 

1177 

0000 


TPR 

DC 

0 

TEMPORARY STuRAGE 

004386 

1178 

0000 


TEMP 

DC 

0 

TEMPORARY STORAGE 

004387 

1179 

0000 


LOOP 

PC 

0 

LOOP COUNTER 

004386 

117A 

lCQO 


INBUF 

DC 

<RT6 


004389 

1176 

0000 


EXST 

DC 

0 

EXPECTtD STATUS FLAG , ^ 

004390 

117C 

0001 


ERF 

DC 

1 

MAKE 0 FOR SHuRT ERROR PRINTOUT 

004391 

1170 

0303 


PAT 

DC 

X* 0303 * 

DATA PATTERN 

004392 

117E 

0000 


QFLG 

DC 

0 

QUICK MODE FLAG 

004393 

117F 

0000 


PFLAG 

DC 

0 

PRINT 1EST LApLE FLAG 

004394 

1180 

8020 


CRLF 

DC 

Z 1 8020 * 


004395 

1181 

2020 


SPACE 

DC 

Z 1 2020• 


004396 

1162 

0000 


PASSC 

DC 

0 

PASS COUNTER 

004397 

1183 

0000 


RRNG 

DC 

0 

RESIDUAL RANGc 

004398 

1184 

0000 


XLOOP 

DC 

0 

EXTERNAL LOOP FLAG 

004399 

1185 

0000 


CBLOOP 

DC 

Q 

CONNEUGK LOOP FLAG 

004400 

1166 

0000 


TLOC 

DC 

0 

ELAPSED TIME IN MS 

004401 

1187 

0000 


MSBS 

DC 

0 

BITS/SEC 

004402 

1186 

0000 


STPTR 

DC 

0 

pointek to frame state table ^ 

004403 

1189 

0000 


BASE 

DC 

0 

RAN NUMBER BASE f 

004404 

118A 

0000 


MODE 

DC 

0 

RAN NUMBER MOuE 1 

004405 

1186 

0400 


R400 

DC 

X 1 400• 

V - 

004406 

118C 

0085 


R85 

DC 

X * 85 * 


004407 

1180 

0010 


RIO 

DC 

X»IO» 
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00440b 

0Q4409 

004410 

004411 

004412 

004413 

004414 

004413 

00441b 

004417 

00441b 

004419 

004420 

004421 

004422 

004423 

004424 

004423 

004426 

004427 

004426 

004429 

004430 

004431 

004432 

004433 

004434 

004433 

004436 

004437 

004436 

004439 

004440 

004441 

004442 

004443 

004444 

004443 

004446 

004447 

00444a 

004449 

004430 

88*$3i 

004433 

004454 

004455 

004456 

004457 

004456 

004459 

004460 

004461 


004486 

004489 

004490 

004491 

004492 

004493 

004494 

004495 

004496 

004497 

004498 

004499 

004500 

004501 

004502 

004503 

004504 

004505 

004508 

004509 

004310 


MLC-FR DC 0 

ODDFLG DC 0 

* 

* HDLC FIRMWARE REV’S FOLLOW# FFFF 

* 

XHCFW1 DC -1 

XHCFW2 DC -1 

RHCFW1 DC -1 

RHCFW2 DC -2 

* 

* BHCLA LINE SPEEDS FOLLOW. FFFF 

HCLS-1 DC -1 

HCLS-2 DC -1 


PWR FREQ 

MSEC 
.1 MS 
.01 MS 


TOTAL UF TICKS 
TOTAL SECONDS 

MLCC FIRMWARE REV STORED HERE 
NON ZERO FOR ODD RANGE 

IS DEFAULT VALUE In THE TABLE 

XMIT FW REV* LA 1 
XMIT FW REV, LA 2 

RCV FW LA 1 
RCV FW REV LA 2 

IS THE DEFAULT VALUE 

SPEED/10* LA i 
SPEED/10* LA 2 


* CONTROL WORDS FUR 10 OPERATIONS 


# 

* I/O CONTROL WORDS 

* 

CONTI DC l 

C0NT2 DC l 

C0NT3 DC 2 

C0NT4 DC X 

C0NT5 DC Z 

C0NT6 DC Z 

C0NT7 DC X 

C0NT8 DC X 

C0NT9 DC Z 

C0NT10 DC X 

C0NT11 DC X 

C0NT12 DC X 

* 

* 

* 

* STORAGE AREAS 

# 


Z 1 0009 * 
Z'OOOC* 
Z*0U0F* 
X • 1 A* 

Z * OOOB• 
2*0018' 
X * 5' 

X' 26 * 
2 * 0001 * 
X * IE • 

X • 3» 
X»1C* 


IOLD FUNCTION CODE 
INPUT RANGE FUNCTIn 


INPUT RANGE FUNCTION CODE 
OUTPUT CCB CONTROL FUNCTION CODE 
INPUT NEXT STATUS FUNCTION CODE 
OUTPUT BYTE INTO LCT FUNCTION CODE 
INPUT STATUS FUNCTION CODE 
OUTPUT CHANNEL CONTROL FUNTION CODE 
INPUT ID FUNCTION CODE 
OUTPUT MLCC CUNTROL FUNTION CODE 
INPUT byfE 

OUTPUT INTERRUPT CONTROL FUNCTION CODE 
INPUT DATA SET STATUS 


004462 

UAL 

0000 



TMPSTR 

RESV 

10,0 

004463 





* 


004464 

1 IBa 

0000 



TSA2 

DC 

0 

004465 




* 


004466 

11B9 

FFFF 



ATLT 

RESV 

4,-1 

004467 





* 


004468 

HDD 

0000 



ERAR 

RESV 

4,0 

004469 





* SAVE 

AREA 

-MAJOR TEST 

004470 





* 



004471 





* 



004472 





* MESSAGES 


004473 





* 



004474 

UC1 

4248 

434C 

4120 

TITLE 

TEXT 

•BHCLA TEST• 


UC4 

5445 

5354 





004473 






IFZ 

(SAF-2)*LAF1 

004476 

UC6 

2044 

434D 

5333 


TEXT 

• DCMS3, SAF-A * 


11C9 

2C20 

4120 

5341 

462D 




004479 

1 ICO 

2020 

4A55 

4C20 

DATE 

TEXT 

* JUL 24, 1978$* 


11DQ 

3234 

2C20 

3139 






3738 

2400 





004480 

11D5 

4248 

434C 

4120 

MESG1 

TEXT 

•BHCLA CHANNEL(S)S 


11D8 

4348 

414E 

4E45 






4C28 

5329 

2400 




004481 

UDE 

4E45 

5854 

2400 

MESG2 

TEXT 

•NEXT** 

004482 

11E1 

5057 

5220 

4652 

MESG5 

TEXT 

•PWR FREQ (HZ) S* 


11E4 

4551 

2028 

485A 






2920 

2400 





004483 

11E9 

7878 

2020 

2400 

ERMG 

TEXT 

•XX $• 

004484 

11EC 

2054 

5241 

4E53 

XPRT 

TEXT 

* TRANSMIT s $• 


11EF 

4D49 

2400 

5420 

3D20 




004485 

11F3 

2052 

4356 

203D 

RPRT 

TEXT 

» RCV = $* 


UF6 

2024 






004486 

11F7 

m 

2Q4C 

2400 

494E 

4520 

IDMSG 

TEXT 

• LINE $* 

004487 

2049 

4420 

3D20 

EQ 

TEXT 

• ID = $• 


11FE 

2400 







ACTIVE LINES TABLE 
ERROR BUFFER 


* -VC-VH-VA-VN-VN-VE-VL PROGRAMS GO HERE 

# 


* SOURCE s DCMS3A4~CCP 

it 

* MAR 24, 1978 

it 

* BROADBAND CHANNEL FUNCTIONAL PROGRAM, RECEIVE 

it 


1 IFF E007 


* 

QRG 

X' 200 * 

CCP1 

EQU 

$ 

* 

B 

RCV 1 

it 

LOC 

LAST 

LAST 

EQU 

X»0202• 



TITLE DCMS3, 'REV A» PAGE 44 


88«U 



# 

4 

WAIT 

6 ND 

OF FRAMES 

004513 



4 

LD 

= 11 


004514 

1200 

0190 





004517 



4 

JUMP 

ER6ND 

CRJ APTTER LAST MESSAGE 

00451a 

1201 

0366 





004521 

1202 

0195 


OC 

6 R6ND-X * 0207• 


004522 



4 




004523 







004524 



4 




004525 



* RCV 

INITIALIZATION* R6SYNC 


004525 



4 




004527 



4 




004525 



4 

LOC 

RCV 1 


004529 


0208 

RCV 1 

60 U 

X • 0208 * 


004530 



4 

LD 

X * 36 1 

GET CONTROL FLAG 

004533 

1203 

5036 





004534 



* 

AND 

sX*8* 

STRIP TO READ CRC BIT 

004537 

1204 

9308 





004535 



* 

OR 

=X»11» 

INITIALIZATION PARAMETER 

004541 

1205 

9411 





004542 



4 

OUT 

6 


004545 



4 




004546 



4 

LD 

= 6 

TEST* RCV ON 

004547 

1206 

3690 





004550 



4 

OUT 

2 


004553 

1207 

0632 





004554 



4 




004555 



4 




004555 



4 




004557 



4 

LUC 

RCV2 


004555 


0212 

RCV2 

6 QU 

X'02l2* 


004559 
nn&R Aft 



4 

WAIT 



004561 



4 




004562 



4 READ 

FW R6V 



004563 



4 




004564 



4 




004565 



4 

IN 

5 

INPUT DATA ScT STATUS 

004566 

1208 

0125 





004569 



4 

ST 

X*6» 


004572 

1209 

5106 





004573 



4 

R6CV 

0 

INPUT FW REV ♦ ENABLE RECV 

004576 



4 

ST 

X*1F* 


004577 

120A 

A051 





004580 



4 




004581 



* 

LUC 

RCV 3 


004582 


0219 

RCV3 

6 QU 

X * 0219 * 


004583 



4 

WAIT 



004584 

ft ft L. A ft A 

1200 

1FQ1 





004586 



4 




004587 



4 PROCESS TH6 

INITIAL 1LS RUPT 


004588 



4 




004589 



4 

| H 

7 

INPUT RCV STATUS 

004592 



4 

ST 

X * 1A * 


004593 

120 C 

2751 





004596 



4 

C 

=X»80» 

SHOULD HAVE 1LS RUPT 

004597 

1200 

1A92 





004600 



4 

B6T 

RCV4 


004601 

1206 

8061 





004604 



4 

LD 

= 1 


004605 

120 F 

0690 





004608 



4 

JUMP 

ER6ND 


004609 

1210 

0166 





004612 

1211 

0177 


DC 

6 REND-X * 0225• 


004613 



4 




004614 



4 




004615 



4 

LQC 

RCV4 


004616 


0226 

KCV4 

6 QU 

X»0226» 


004617 



4 

IN 

7 

READ LRY AGAIN 

004620 



4 

ST 

X*1A* 


004621 

1212 

2751 





004624 



4 

C 

=X»80» 


004625 

1213 

1A92 





004628 

004629 

1214 

8061 

4 

b6T 

RCV4A 


004632 



4 




004633 



4 

LD 

= 13 


004634 

1215 

0690 





004637 



4 

JUMP 

6 R6ND 


004638 

1216 - 

0066 





004641 

1217 

016b 


DC 

6REND-X•0231’ 


004642 



4 




004643 



4 

LQC 

KCV4A 


004644 


0232 

RCV4A 

EQU 

X 1 0232• 


004645 



4 

IN 

5 


004648 



4 

ST 

X • 6 * 


004649 

1218 

2551 





004652 



4 

AND 

58 


004653 

1219 

0693 





004656 



4 

bZF 

RCV5 

BRANCH IF ADAPT RDY = 1 

004657 

121 A 

Q8F2 





004660 



4 

LD 

= 2 

ERROR CODE 

004661 

121 b 

0690 





004664 



4 

JUMP 

6 R6ND 


004665 

121C 

0266 





004668 

1210 

015F 


DC 

6REND-X»023D* 


004669 



4 




004670 



4 

LOC 

RCV5 


004671 


0236 

RCV5 

6 QU 

X * 0236 * 


004672 



4 

BART 

RCV 6 


004675 

1216 

6506 





004676 



4 

LD 

53 


004679 

121 F 

9003 





004680 



4 

JUMP 

ER6ND 


004683 

1220 

6601 





004684 



4 




004685 



4 

LOC 

RCV6 


004686 


0245 

RCV6 

6 QU 

X * 0245 * 


004687 



4 

R6CV 

0 

DUMMY TO ADVANCE 

004690 

1221 

58AQ 





004691 



4 

BARF 

RCV 7 
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004^94 

1222 

P506 







^ 0Q4695 



* 

L 0 

59 




004o98 

1223 

9009 







I 004o99 



it 

JUMP 

EREND 



ADAP KDY DIDh* T RESET 

I 00470/ 

1224 

E601 







^ 004703 



# 






004704 



* 

LOC 

KCV7 




0 U 4 7 0 5 


0240 

RCV7 

EQU 

X • 0240 * 




00470b 



# 

IN 

5 



IN DATA SET STAT 

004709 

1225 

5025 







004710 



# 

ST 

X * E * 




004713 

1226 

510L 







004714 



* 

AND 

= X * 4 * 



STRIP TO REAbY 

004717 

1227 

9304 







0047 1 6 



* 

BZT 

RCV8 




004721 

1226 

E206 







004722 



* 






004723 



* 

LD 

54 




004726 

1229 

9004 







004727 



# 

JUMP 

EREND 




004730 

122A 

EbO 1 







004731 



# 






004732 



* OUTPUT KCV 

CONFIGURATION 



004733 



* 






004734 



# 

LOC 

RCV8 




004735 


0259 

RCV8 

equ 

X * 0259 * 




004736 



* 

LD 

X * 17 • 




004/37 

122b 

4450 







004740 



* 






004741 



* IF TCb IS 

SET MODIFY 

BYTE SIZE SPECIFIED 

004742 



* BY 

LR6 (SHOULD BE DON* T CARE) 


004743 



* 

- 





004/44 



* 

AND 

sX*20* 



TCb BIT 

004745 

1220 

1793 







004746 



* 

BZT 

DOCFG 



B 5 NO TCB 

004749 

1220 

20E2 







004752 



* 

LD 

X * 17 * 



GETVALUE 

004753 

122E 

0750 







004756 



* 

XOR 

54 



CHANGE BIT 5 

004757 

122 F 

1795 







004760 



* 

b 

OUT IT 




004761 

1230 

04E0 







004764 



# 






004765 



* 

LOC 

DOCFG 




004766 


0265 

DOCFG 

EQU 

X * 0265 * 




004767 



* 

LD 

X* 17* 




004768 

1231 

0350 







004771 



* 






004772 



# 

LOC 

OUT IT 




004773 


0267 

OUT IT 

EQU 

X *0267 * 




004774 



* 

OUT 

6 




004777 

1232 

1736 







004776 



* 






004779 



* TURN 

ON XMIT* KCV* OR 

BOTH 



004780 



* 






1 004781 



# 

LD 

X* 14* 



PICK UP CONTROL 

I 004784 

1233 

5014 







^ 004785 



* 

OUT 

2 




004786 



* 






004789 



# 

LOC 

DLOQP 




004790 


026b 

OLOUP 

EQU 

X«026B * 




004791 



* 






004792 



* 

LD 

5X*FF* 




004793 

1234 

3290 







004796 



* 

sr 

x*ib* 



SET INI UAL FRAME COUNT 

004797 

1235 

FF51 







004600 



it 

LOC 

XY2 




004601 


026F 

XY2 

EQU 

X• 026P * 




004602 



* 

WAIT 





004803 

1236 

1B01 







004604 



it 






Vv/ 

004606 



it 






004607 



* DECIDE TO 

DO lung OR 

SHORT 

DATA 

LOOP 

004606 



* 






004809 



* 






004810 



* 






004611 



* 

LOC 

EP1 




004612 


0270 

LP1 

EQU 

X•02 70 * 




004613 



* 

LD 

X • 3E * 



GET FLAG 

004616 

1237 

503E 







004617 



# 

AND 

5X*90* 



STRIP TO OVEKUN BIT 

004820 

1238 

9390 







004621 



* 

BZF 

LUP2 



BRANCH IF LONG LOOP 

004824 

1239 

F 204 







004625 



* 

JUMP 

RCV10 



DO SHUR) LOOP 

004628 

123A 

E600 







004629 



* 






004630 



* LONG 

DATA 1 

LOOP - 1ST 

BEE IF 

TIME 

FOR ANY SPECIAL ACTION 

004631 



* 






004632 



* 

LOC 

LUP2 




004633 


0279 

LUP2 

EQU 

X * 0279 • 




004834 



* 

LD 

X * 3 F * 



GET ACTION FRAME 

004635 

123b 

2C50 







004838 



* 

OR 

5X*C0* 



MAKE 6 BITS 

004639 

123C 

3F94 







004842 



it 

C 

X*lb* 



COMPARE WITH ACTUAL 

004643 

1230 

C052 







004846 



it 

bEF 

RCV9 



B 5 NO UVRUN NOW 

004647 

123E 

1BF1 







004850 



-- 






004851 



* 






004652 



* SPECIAL ACTION 




004653 



it 






004854 



it 

LD 

X* ID* 



GET ACTION ChAR 

_ 004855 

123F 

0C50 







004858 



it 

C 

X * 18 • 



COMPARE WITH ACTUAL 

| 004859 

1240 

1052 







1 004662 



it 

bEF 

RCV9 



B 5 NO QVERUN NOW 

^ 004663 

1241 

18F1 







004666 



it 

LD 

sX * 20 * 




.004867 

1242 

0690 







004870 



it 

JUMP 

RDLAY 



DELAY ABOUT 100 Ms 
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004671 

004674 

004676 

004676 

004677 

004676 

004679 

004680 

004681 

00488a 

004686 

004886 

004689 

004690 

004693 

004696 

004697 

004698 

004899 

004902 

004903 

004904 

004907 

004906 

004911 

004912 

004913 

004914 

004917 

004918 

004921 

004922 

004923 

004924 

004925 

88*31$ 

004930 

004933 

004934 

004935 

004936 

004937 

004938 

004939 

004940 

004943 

004944 

004947 

004946 

004951 

004954 

004955 

004956 

004957 

004960 

004961 

004964 

004965 

004966 

004969 

004970 

004971 

004972 

004973 

0Q4974 

004975 

004976 

004977 

004976 

004981 

004982 

004985 

004986 

004989 

004990 

004993 

004994 

004997 

004996 

005001 

005002 

005005 

005006 

005009 

005010 

005011 

005012 

005013 

005014 

005015 

005016 

005017 

005016 

005019 

005020 

005023 

005024 

005027 

005026 

005029 

005030 

005033 

005034 

005037 

005036 

005041 

0Q5042 

005043 

005044 

005045 

005046 

005047 


1243 

1244 


1245 

1246 

1247 

1248 

1249 
124A 
124b 

124C 

124D 

124E 

124F 

1250 


1251 

1252 

1253 

1254 

1255 

1256 

1257 


1258 

1259 
125A 
125b 
125C 
1250 
125E 
I25F 


1260 

1261 

1262 

1263 

1264 


1265 


20E6 

0090 


028C 

2751 

1AF2 

22A0 

1150 
1805 
5118 
F306 
02 9A 
9005 
E600 
029F 
FEE5 
0901 
E0P6 


02A4 

2751 

1AF2 

0AA0 

UE3 
EEE5 
F601 
EOF 3 


0 2b2 
93FQ 
9220 
F10C 
503E 
9308 
F20A 
9010 
E600 

02C3 


0A92 

10F1 

02C7 

5290 

1054 

1151 


1150 



DC 

RDLAY-X»028B* 


# 

* NO 

* 

* 

SPECIAL 

ACTION 


* 

LOC 

KCV9 


RCV9 

EQU 

X*Q28C* 


* 

* 

if 

7 

X»1A* 

GET STATUS 

* 

bZF 

RC5 

BRANCH IF STATUS to READ 

* 

RECV 

0 


* 

ST 



* 

LD 

X * 18 • 


* 

DEC 



* 

ST 

X 1 18 * 

UPDATE CHAR v*QUNT 

* 

BLCF 

NEXT 


* 

LOC 

ER-5 


ER-5 

EQU 

X*029A» 


# 

LD 

= 5 

missed closed flag 

# 

JUMP 

EREND 


# 

LOC 

NEXT 


NEXT 

EQU 

X* 029F * 


* 

BART 

LUP2 


* 

WAIT 



# 

B 

LUP2 



# 

* MINIMUM LOOP 

* 


* 

RCVIO 

* 

* 

t fe8 c 

i¥ 

7 

X* 1A* 


* 

BZF 

RC5 

B s SOME STATUS To READ 

# 

RECV 

0 


* 

# 

ST 

BLCT 

ER-5 

BR = MISSED CLOSE FLAG 

# 

BART 

RCVIO 


ik 

WAIT 



* 

B 

RCVIO 



# 

# 

# 

* 


* COME 

HERE 

WHEN MON -ZERO 

LR7 FOUND IN DATA LOOP 



# 

RC5 

* 

e&8 c 

AND 

RC5 

X 1 02B2 * 
sX*FO» 

STRIP OFF RESIDUE 



# 

C 

sX»20* 

CHECK FOR DIAGNOSTIC 

status 

* 

BEF 

NOTEST 

br if not diagnostic 

CRC 

MODE 

ik 

LD 

X*3E* 

GET FLAG 



* 

AND 

*X* 8 • 

READ CRC BIT 



# 

BZF 

NOTESM 




* 

LD 

sX * 10 1 




* 

JUMP 

EREND 

ERROR* DIAGNOSTIC STATUS 

WHEN NOT 

* 

NOTEST 
#—• — r ._ _ 

LOC 

EQU 

jnmt 

IN DIAGNOSTIC MODE 



# 

* CHECK 

# 

; FOR 

NORMAL CLOSING 

STATUS* BITS 0-4 



* 

* 

C 

=X»1G* 




ik 

BEF 

JMP2 

BRANCH IF ERROR 



* 

NOTESM 

* 

LOC 

EQU 

LD 

NOTESM 

X * Q2C7 * 

• X * 10 1 




* 

OR 

X*ii* 




* 

ST 

X'll* 

SET CLOSE BIT 




* CHECK THAT LAST BYTE SUE IS AS EXPECTEO 

* 

* 

* LO X•1A 1 GET SI ATUS 








TITLE DCMS3* «KEV A» 


PAGE 47 


005050 

005051 

1*66 

1A93 

005054 

005055 

005056 

1267 

0F52 

005059 

005060 

1268 

04E1 

005063 

005064 

1269 

0690 

005067 

00506b 

126A 

0AE6 

005071 

126b 

00C3 

00507* 

005073 

005074 

02DA 

005075 

00507b 

005079 

126C 

AO 11 

005080 

005083 

126D 

5016 

005084 

005085 

005086 

126b 

0551 

005089 

005090 

i 26F 

1890 

005093 

005094 

1*70 

1054 

005097 

005098 

1271 

1151 

005101 

00510* 

1*72 

1150 

005105 

005106 

1*73 

3E93 

005109 

005110 

127* 

08E2 

005113 

00511* 

1275 

OEOi 

005115 

005116 

005117 

005118 

005119 

00512* 

005123 

1276 

AO 11 

00512* 

005125 

005128 

1277 

01 AO 

005129 

005130 

005131 

1278 

1101 

00513* 

005135 

005136 

1279 

A011 

005137 

005138 

005141 

127A 

01 AO 

00514* 

005143 

00514* 

127b 

1101 

005145 

005146 


02FA 

005147 

005148 

005149 

005150 

005151 

00515* 

005153 

005154 


02FB 

005155 

005156 

127C 

0250 

005159 

005160 

127D 

1605 

005161 

005164 

127E 

51 IB 

005165 

005168 

127F 

F434 

005169 

005170 

005171 

00517* 

005173 

005174 


0302 

005175 

005176 

005179 

1280 

503F 

005180 

005183 

1281 

9380 

005184 

005187 

1282 

F22B 

005188 

005191 

1283 

E502 

00519* 

005193 

005194 


Q30B 

005195 

005198 

1284 

0127 

005199 

00520* 

1285 

511A 

005*03 

005*06. 

1286 

9280 

005*07 

005*10 

005211 

1287 

A0E1 

005214 

005*15 


0313 

005*16 

005217 

1288 

2090 

005220 

005221 

1289 

06E6 

005*24 

128A 

0085 

005225 

005226 




* 

AND 

= X • F • 

STRIP TO RESIDUE BITS 

* 

* 

C 

4 

...•AND PARTIAL BYTE BIT 

COMPARE WITH WHAT SHOULD BE 

# 

BET 

RCV12 


* 

LD 

= 10 


# 

JUMP 

ERtND 

RESIDUE WRONu FOR LAST BYTE 

* 

KCV12 

* 

* 

DC 

LOC 

EQU 

RECV 

ST 

EREND-X * 02D9' 

RCV12 

X * 02DA• 

0 

....OR PARTIAL BYTE BIT WRONU 

* 

LD 

X» 18» 


# 

* 

DEC 

sr 

X» 18« 

DEC CHAR COUNT 

* 

LD 

=X«10* 


* 

OR 

XU1* 


* 

ST 

X» 11 • 

SET CLOSE BIT 

# 

LD 

X • 3E * 

GET FLAG 

# 

AND 

= X»8» 

STRIP TO READ CRC DIAGNOSTIC 

# 

BZT 

RCV11 


# 

WAIT 



* RECEIVE CRC 

RESIDUES IF IN CRC 

DIAGNOSTIC MODE 

# 

# 

RECV 

ST 

0 

GETS RES BYTE l 

* 

* 

WAIT 

RECV 

0 

gets res byte 2 

# 

* 

ST 

WAIT 



* 

* 

RECV 

ST 

0 

GETS XM1T CRo BYTE 1 

* 

# 

WAIT 

RECV 

0 

GETS XMIT CRC BYTE 2 

# 

# 

ST 

WAIT 



RCV11 

* 

* 

LOC 

EUU 

GNB 



* 

* END 

OF frame processing 


* 

EOFP 

* 

LOC 

EUU 

LD 

EOFP 

X* 02FB* 

X» 1B» 

GET FRAME COUNT 

* 

DEC 



* 

ST 

X*1B« 


* 

* 

bLBF 

RC92 

BRANCH IF MORE DAja COMING 

* LAST 

LFRM 

FRAME 

LOC 

EQU 

LFRM 

X•0302 1 


# 

LD 

X • 3F * 

GET FILL MODE 

* 

AND 

=X*80* 


# 

B2F 

RC91 

BRANCH IF FLAG IDLE 

# 

BART 

EOFR 


Lfr 

* 

WAIT 

LOC 

EQU 

IN 

EOFR 

X•030B* 

7 

GET STATUS 

* 

ST 

X*1A* 


* 

C 

= X * 80• 


# 

# 

RECV 

BET 

0 

RC91 

K , .?IS , ,KSeS'- 5 

RC90 

* 

LOC 

EQU 

LD 

RC90 

X * 0 313 * 

= 6 


* 

JUMP 

EREND 

SHOULD HAVE ILS S£T 

it 

DC 

EREND-X*0317» 


# 

LOC 

JMP2 
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0Q5227 


0318 

UMP2 

EQU 

X 1 0318• 


00522 a 



* 

JUMP 

STATER 


005231 

1286 

6600 





005232 



* 




005233 







005234 



* 




005235 



* DELAY 

ROUTINE USED TO INDUCE OVERRUN 


005236 



* 




005237 



* RDLAY 




005236 



* 

LOC 

RDLAY 


005239 


031B 

RPLAY 

EQU 

X * 03 lb 1 


005240 



# 

ST 

X'lC STORE COUNT 


005241 

128C 

4551 





005244 



* RCCPD1 



005246 



* 

LUC 

RCCPD1 


005246 


0310 

RCCPD1 

EQU 

X * 03 ID * 


005247 



# 

LD 

sO 


005246 

1280 

1C90 





005251 



*RCCPD2 




005252 



# 

LOC 

RCCPD2 


005253 


031F 

RCCPD2 

EQU 

X»031M 


005254 



# 

DEC 



005255 

1286 

0005 





005256 



* 

AND 

=X»FF» 


005259 

128F 

93FF 





005260 



* 

AND 

s X » F F * 


005263 

1290 

93FF 





005264 



* 

AND 

=X*FF* 


003267 

1291 

93FF 





005266 



* 

BZF 

RCCPD2 


005271 

1292 

F2F6 





005272 



* 

LD 

X»1C* 


005275 

1293 

501C 





005276 



* 

DEC 



005277 



* 

ST 

X»1C« 


005276 

1294 

0551 





005281 



# 

B2F 

RCCPD1 


005282 

1295 

1 CF2 





005285 



* 

JUMP 

RCV9 ENP OF OELAY ROUTINE 


005286 

1296 

EFE6 





005289 

1297 

FF5b 


DC 

RCV9-X’0331 * 


005290 







005291 



* 




005292 



* LAST 

FRAME. 

FLAG IDLE 


005293 



* 




005294 



* 

LOC 

RC91 


005295 


0332 

RC91 

EQU 

X 1 0332 f 


005296 



* 




005297 



* 

JUMP 

LAST 


005300 
005301 

1298 

E6FE 





005302 



# 




005303 



* INTERFRAME 

STATE 


005304 



* 




005305 



* 




005306 



# 

LOC 

RC92 


005307 


0335 

RC92 

EQU 

X * 0335 * 


005306 



* 

BART 

RCNXT 


005309 

1299 

CEE5 





005312 



* 

WAIT 



005313 

129A 

0201 





005314 



* 

LOC 

RCNXT 


005315 


0336 

RCNXT 

EQU 

X * 0338 ' 


005316 



* 

IN 

7 GET RCV STATUS 


005319 



# 

ST 

X* 1A» 


005320 

1296 

2751 





005323 



* 

LD 

X*3F* XM1T CONFIG. 


005324 

129C 

1A50 





005327 



# 

AND 

=X»8Q» 


005328 

1290 

3F93 





005331 



* 

62 F 

RC89 BRANCH IF FLAG IDLE 


005332 

1296 

80F2 





005335 



*----— 


.. 


005336 



# 




005337 



* ABORT 

IDLE 

STATE. CHECK FOR ILS STATUS RECEIVED. 


005338 



* ILS STATUS 

RECEIVED. 


005339 



* 




005340 



* 




005341 



* 

LD 

X 1 1A * 


005342 

129F 

1850 





005345 



* 

NOP 



005346 

12A0 

1 A00 





005347 



* 

C 

=X«8G» 


005350 

12A1 

9280 





005351 



* 

BET 

RCS8 BRANCH IF ItS 


005354 

12A2 

E106 





005355 



* 




005356 



* 

LD 

^7 SHOULD BE ILS STATUS. IS 

NOT 

005359 

12A3 

9007 





005360 



* 

JUMP 

EREND 


005363 

12A4 

E600 





005364 



* 

LOC 

RC88 


005365 


0340 

RC88 

EQU 

X * 034D * 


00536b 



* 




005367 



# 

RECV 

0 DUMMY RECV 


005370 

12A5 

50A0 





005371 

005372 



* 

WAIT 



005373 



* CRI TO GET 

HERE IS 1ST DATA FOR NEXT FRAME 


005374 



* 




005375 



* 

BART 

RC69 


005376 

12A6 

01E5 





005379 



* 

LD 

58 


005380 

12A7 

0890 





005383 



# 

ST 

X*3A» 


005384 

12A6 

0851 





005387 



# 

JUMP 

EREND ADAP READY NuT SET AFTER 

DATA CRI 

005386 

12A9 

3AE6 





005391 

12AA 

0045 


DC 

EREND-X *0357 * 


005392 



* 




005393 



* FIRST 

DATA, 

NEXT FRAME 


005394 



* 




005395 



# 

LOC 

KC69 
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005396 


0358 

RC89 

EQU 

X *0358 * 


005397 



* 




005396 



* 

LP 

= 0 


005401 

12A6 

9000 





00540* 



# 

ST 

X * 18 ’ 

CLEAR CHAR COUNT 

005405 

12AC 

5116 





005406 



* 

JUMP 

XY*. 


005409 

12AD 

E6FF 





005410 



* 




005411 



*___ 




00541* 



* 




005413 



* COME 

HERE FOR STATUS OTHER 

THAN CLOSE 

005414 



* 




005415 



* 

LOC 

STATER 


005416 


035F 

STATER 

EQU 

X«035F* 


005417 



* 

LP 

X * 1A * 

GET STATUS 

00541b 

12AE 

1150 





005421 



* 

AND 

=X*10» 

STRIP TO EOF 

005422 

12AF 

1A93 





005425 



# 

UZT 

STaTI 


005426 

1200 

lot* 





005429 



# 

LP 

=X»10» 


005430 

1261 

0790 





005433 



# 

OR 

x»u» 


005434 

126* 

1054 





005437 



# 

ST 

x*u* 


005436 

1*63 

1151 





005441 



* 

LOC 

STATI 


00544* 


0366 

ST AT 1 

EQU 

X * 0366* 


005443 



* 

LP 

X» 1A» 


005444 

1264 

1150 





005447 



* 

AND 

=X»80* 

STRIP TU ABORT/IPLE 

005446 

1265 

1A93 





005451 



* 

62 T 

STAT2 


00545* 

1266 

80E2 





005455 



# 

LP 

= X»*« 


005456 

1267 

0790 





005459 



* 

UR 

X* 10* 


005460 

1*66 

0254 





005463 



* 

ST 

X»10» 


005464 

1*69 

1051 





005467 



* 

LOC 

STAT2 


005466 


0377 

STAT2 

EQU 

X * 0377• 


005469 



* 

LP 

X* lAt 


005470 

126A 

1050 





005473 



* 

AND 

=X»40» 

STRIP TU OVER RUN 

005474 

1*66 

1A93 





005477 



* 

62 T 

ST AT 3 


005476 

126C 

40E2 





005481 



* 

LP 

=X»20» 


00548* 

1260 

0790 





005485 



* 

OR 

X* 10* 


005486 

12BE 

2054 





005489 



* 

ST 

X»10* 


005490 

126F 

1051 





005493 



# 

LOC 

ST AT 3 


005494 


0363 

STAT3 

EQU 

X • 0383 * 


005495 



* 

LP 

X 1 1A * 


005496 

12C0 

1050 





005499 



* 

AND 

=X*20» 

STRIP TU FCS ERROR 

005500 

12C1 

1A93 





005503 



# 

6ZT 

STAT4 


005504 

12C2 

20E2 





005507 



* 

LP 

5X *40 1 


005506 

12C3 

0790 





005511 



# 

OR 

x»u» 


00551* 

12C4 

4054 





005515 



# 

ST 

X*li* 


005516 

12C5 

1151 





005519 



* 

LOC 

STAT4 


005520 


038F 

STAT4 

EQU 

X • 036F • 


005521 



* 

RECV 

0 

dummy TU advance 

005524 

12C6 

11 AO 





005525 



* 

6LCT 

STATS 

CHECK BUFFER NOT FULL 

005528 

IZC7 

E302 





005529 



* 

ST 



005530 



# 

LOC 

STAT5 


005531 


0393 

STAT5 

EQU 

X 1 0393' 


005532 



# 

GNB 



005533 

12C8 

110* 





005534 



* 

6LBF 

RC93 

BRANCH IF MURE COMING 

005537 

1*C9 

F404 





005538 



# 

JUMP 

lfrm 


005541 

12CA 

E6FF 





00554* 



* 

LOC 

RC93 


005543 


0399 

RC93 

EQU 

X • 0399 • 


005544 



# 

JUMP 

EOFP 


005545 

12C6 

6AE6 





005546 

12CC 

FF60 


PC 

EOFP-X » 0396 ' 


005549 

005550 



* 

__ 




005551 



* 




005552 



* FATAL ERROR 

ROUTINE 


005553 



* 




005554 




LOC 

ERENP 


005555 


039C 

EREND 

EQU 

X * 039C * 


005556 



* 

ST 

X*3A» 


005559 

12C0 

513A 





005560 



* 

LP 

50 


005563 

1ZCE 

9000 





005564 



* 

OUT 

2 

SHUT EVERYTHING OFF 

005567 



* 

NOP 



005566 

12CF 

3200 





005569 



* 

NOP 



005570 



# 

NOP 



005571 

1*00 

0000 





005572 



* 

NOP 



005573 



# 

LOC 

LUP 


005574 


03A5 

LUP 

EQU 

X * 03A5 • 


005575 



# 

WAIT 



005576 

1201 

0001 





005577 



* 

6 

LUP 


005580 

1202 

EOFE 
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005581 

005582 

005583 

005584 

1203 

0000 

* 

* 

HOP 

NOP 



005585 







005586 







005587 



* 




005588 



* 




005589 



* BROADBAND 

CHANNEL FUNCTIONAL 

PROGRAM * XMIT 

005590 



* 




005591 



* 

ORG 

X • 400 * 


0Qbi>9«! 


1204 

CCP2 

EQU 

% 


005593 



# 

b 

XMIT21 


005596 

1204 

E007 





005597 



* 




005596 



# 

LUC 

LAST 1 


005599 


0402 

LAST1 

EQU 

X * 0402 * 


005600 



# 

WAIT 



0Q5o0i 



* 

LD 

= 12 


005&02 

1205 

0190 





005605 



* 

JUMP 

EKtND 

CRI AFTER XMlT TURNED OFF 

005606 

1206 

0CE6 





005609 

1207 

FF95 


DC 

EREIMP-X • 0407 * 


0056X0 



* 




00561X 







005612 



* 




0056X3 



* DECIDE TO 

READ FW REV OR NOT 


0056X4 



* 




005615 



* 




0056X6 



# 

LOC 

XM1T21 


005617 


0406 

XMIT21 

EuU 

X * 0408 • 


005618 



* 

CD 

X * 39 * 

GET READ REV FLAG 

005621 

1208 

5039 





005622 



* 

BZF 

RREV 

B = READ FW REV 

005625 

1209 

F20F 





005626 



* 




005627 







005628 



* 




005629 



* DON* 

T READ 

FW REV. 


005630 



# 




005631 



# 




005632 



* 




005633 



# 

LD 

sX * 45 * 


005636 

120A 

9045 





005637 



* 

OUT 

2 

TON* KQS OFF 

005640 



* 

LD 

= X * 18 * 


005641 

120b 

3290 





005644 



# 

OUT 

7 

TEOF OFF 

005647 

120C 

1837 





005648 



# 

NOP 



005649 



* 

NOP 



005650 

1200 

0000 





005651 



* 

LD 

= 0 


005654 

120E 

9000 





005655 



* 

SEND 

0 

DUMMY OUTPUT 

005658 



# 

WAIT 



005659 

12DF 

6001 





005660 



# 

b 

XREV 


005663 

12E0 

EOlb 





005664 







005665 



# 




005666 



* READ 

XMIT 

FW REV NUMBER 


005667 



* 




005668 



* 




005669 



* 

LOC 

RREV 


0Q5670 


041A 

RREV 

EOU 

X * 04l A * 


005671 



* 




005672 



# 

LD 

= X»45» 


005675 

12E1 

9045 





005676 



* 

OUT 

2 

TEST* XMIT 

005679 



# 

LD 

=X*19* 

EOF BIT 

005680 

12E2 

3290 





005683 



* 

OUT 

7 


005686 

12E3 

1937 





005687 



* 

LD 

= 0 


005690 

12E4 

9000 





005t>91 



* 




005692 



* 

SEND 

0 

DUMMY OUTPUT 

005695 



* 

NUP 



005696 

12E5 

6000 





005697 



* 

WAIT 



005696 



# 




005699 



* 

LOC 

XRfcVX 


005700 


0425 

XREVX 

EOU 

X * 0425 * 


005701 



* 

IN 

5 

READ STAT 

005704 

12E6 

0125 





005705 



* 

ST 

X * 2E * 


005706 

12E7 

512E 





005709 



* 

AND 

= X * 1 * 

STRIP TO UNO RUN BIT 

005712 

12E8 

9301 





005713 



* 

bZT 

XRbV 

IF ZERO DONE 

005716 

12E9 

E2Q9 





005717 



# 

LD 

X • IE * 

GET FIRMWARE REV 

005720 

12EA 

501E 





005721 



* 

DEC 



005722 



* 

ST 

X* IE* 


005723 

12Lp 

0551 





005726 



* 

WAIT 



005727 

12£C 

1EQ1 





005726 



# 

b 

XREVX 


005731 

12E0 

E0F2 





005732 



*- 




005733 



* 




005734 



* SET 

INITIAL FILL STATE 


005735 



* 




005736 



# 




005737 



* 

LOC 

XREV 


005738 


0434 

XREV 

EOU 

X * 0434 * 


005739 



* 

LD 

= 4 


005742 

12EE 

9004 





005743 



* 

QUT 

2 

SHUT OFF XMH 

005746 



* 




005747 



* 

LD 

X*3F» 

GET IDLE STATE 
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005748 
00575 J. 

12tF 

3250 

# 

AND 

=X•20• 

STRIP TO PERTINENT BIT 

005752 

005755 

UFO 

3F93 

* 

bZT 

XSTAR 

BRANCH IF ABORT IDLE 

005756 

12F1 

20E2 



005759 

005760 

12F* 

0390 

* 

LD 

sX•10• 

SET FOR FLAG IDLE 

005763 



* 

LOC 

XSTAR 


005764 


043F 

X5TAR 

LOU 

X • 043 F * 

SET FILL MODE 

005765 



* 

OUT 

6 

005766 

005769 

005770 

12F3 

1036 

# 

WAIT 



005771 



* 




00577* 



* GET 

HERE BY 

CRI AFTER RCV SIDE 

TURNS ON XMIT 

005773 



* 


005774 

005775 

12F4 

0190 

# 

LD 

=X*1C« 


005776 


* 

OUT 

7 

TEOF* 0 FILLS 

00578 X 

12F5 

1C37 





00578* 

005785 

12F6 

9000 

* 

LD 

= 0 


005786 



* 

SEND 

0 

DUMMY SEND 

005789 

005790 

12F7 

6001 

* 

WAIT 



00579 X 



ik 

NOP 



00579* 

005793 

12F8 

0000 

* 

NOP 



005794 



* 

NOP 



005795 

005796 

12F9 

0000 

* 

NOP 



005797 



* 

NOP 



006798 
005799 
n n s ft n n 

UFA 

0000 

* 

NOP 



00560X 



# 




00580* 



* START OF FRAME INITIALIZATION 


005803 



* 




005804 



ik 

LOC 

SFRM 


005805 


044E 

SFRM 

EQU 

X • 044E • 


005806 



ik 

WAIT 


005807 



ik 



005808 

005809 

12 Fb 

0150 

ik 

LD 

X • 37 • 


0056U 

005813 

UFC 

3793 

ik 

AND 

=X'10* 

STRIP TO EOF BIT 

005816 

005817 

12FL> 

10E2 

ik 

bZT 

SFRM3 

B s NO EOF BIT SET 

005820 


ik 




005821 



* INITIAL EOF 

BIT IS SET 


005822 



ik 



005823 



ik 




005824 

005825 

12FE 

0750 

ik 

LD 

X • 37 • 

GET CONFIG WuRD AGAIN 

005828 

005829 

12FF 

3793 

ik 

AND 

= X • E • 

STRIP TO BYTl SIZE INFO 

00583* 

005833 

1300 

OEEO 

* 

B 

5FRM2 


005836 



* 




005837 



ik 




005638 



* INITIAL EOF 

BIT NOT SET 


005839 



ik 




005840 



ik 

LOC 

SFRM3 


005841 


045b 

SFRM3 

EQU 

X • 045B * 


00584* 

005843 

1301 

0F50 

ik 

LD 

X • 37 • 


005846 



* 




005847 



* IF T 

CB SPECIFIED GIVE SCREWED 

UP BYTE SIZE TO lR7. 

005848 



* TCB 

SHOULD OVER i DE THIS 


005849 



ik 




005850 

005851 

1302 

3793 

ik 

AND 

-X * 20• 

STRIP TO TCB BIT 

005854 

005855 

1303 

20E2 

ik 

BZT 

SFRM1 


005858 

ik 

LD 

X • 37 • 

GET VALUE FOR LR7 

005659 

00566* 

1304 

0750 

* 

XOR 

= 4 

INVER! BIT 5 

005663 

005666 

1305 

3795 

ik 

B 

SFRM* 


005867 

005870 

1306 

04E0 

ik 






0467 

SFRM1 

LOC 

EQU 

SFKM1 

X•0467 * 


005873 

005874 

1307 

0350 

* 

LD 

X • 37 • 


005877 



* 




0 f) H h 7 H 







vU/O f U 







005679 



ik 




005680 



* SET 

UP XMIT 

CONFIGURATION 


005681 



ik 



00588* 



ik 

toe 

SFKM2 


005683 


0469 

SFRM2 

EQU 

X • 0469 * 


005684 

005887 

1308 

3737 

ik 

OUT 

7 

transmit configuration 

005886 

005891 

1309 

503F 

* 

LD 

X • 3F • 

GET FILL MODE AND DELAY XMIT BIT 

00589* 


* 

AND 

= X * 80• 


005895 

005896 

130A 

9380 

* 

SR 



005897 

005898 

130b 

0707 

ik 

SR 



005899 


ik 

OR 

X • 3F * 


005902 

HOC 

543F 



005903 

005906 

1300 

9360 

ik 

AND 

-X * 60• 


005907 



ik 

SR 



005908 

005911 

130E 

0736 

ik 

OUT 

6 

SET INTtR-FUL MODE 

005912 

005915 

130F 

ik 

LD 

X*3B* 


5Q3B 

005916 


ik 

DEC 



005917 

005918 

1310 

0551 

Ik 

ST 

X»3B* 

DEC FRAME COUNT 
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003921 

005922 

005923 

005924 

005925 

005926 

003927 

005926 

005931 

005932 

005935 

005936 

005939 

005940 

005941 

005942 

005943 

005944 

005945 

005946 

005947 

005950 

005951 

005954 

005955 

005956 

005959 

005960 

005963 

005964 

005967 

.005966 

005971 

005972 

005973 

005974 

005975 

005976 

005979 

00-5982 

005983 

005986 

005987 

005990 

005993 

005994 

005995 

005996 

005999 

006000 

006001 

006002 

006003 

006006 

006007 

006010 

006011 

006014 

006015 

006016 

006019 

006022 

006023 

006024 

006025 

006026 

006027 

006026 

006029 

006030 

006031 

006032 

006033 

006034 

006035 

006036 

006037 

006040 

006041 

006042 

006043 

006046 

006047 

006050 

006051 

006054 

006055 

006056 

006059 

006060 

006063 

006064 

006065 

006066 

006069 

006070 

006073 

006074 

006077 

006078 

006079 

006082 

006083 

006084 

006085 

006086 

006087 

006088 

006089 

006090 

006091 

006094 

006097 


131A 1C50 
1316 3E93 

131C 02E2 
1310 0790 

13 IE 9037 

13 IE 10E0 

0499 

1320 5250 

1321 3E93 

1322 01E2 

1323 0690 


1324 

1325 


14E6 

OODA 


04A4 


1333 

1334 


04BE 

10E3 

0760 





* SHOULD WE 

TAKE LONG 




* 

LOC 

TDATA 


047B 


TDATA 

* 

EQU 

X * 047B 1 




* 

LD 

X ’ 3E * 

1311 

3B50 






* 

AND 

=X•83• 

1312 

3E93 


* 

BZT 

TDAT9 

1313 

83E2 








* 

* LONG 

# 

DATA 

LOOP* 1ST 




* 

LOC 

TXYZ 


0481 


TXY2 

* 

EQU 

X * 0481• 




* 

LD 

X ’ 19 • 

1314 

3E50 


# 

C 

X»3b* 

1315 

1952 







* 

BEF 

TDAT 3 

1316 

3BF1 


* 






* 

LD 

X * 3C* 

1317 

2250 


* 

C 

X * 38 * 

1318 

3C52 


# 

BEF 

TDAT3 

1319 

38F1 





GET FLAG 


BR = 00 MINIMUM LOOP 


15T SEE IF ANY SPECIAL ACTION TO BE TAKEN* 


ACTION FRAME 

compare WITH actual 

B = NUT THIS FRAME 
GET CHAR 


B s NOT THIS CHAR 
IT IS THE CHAR ANU FRAME TO TAKE SPECIAL ACTION* 


# 

# 

* 

* 

* 

* 

TDAT 2 
# 

# 

* 

* 

* 


TDAT5 

* 


LD 

AND 

BZT 

LP 

OUT 

LP 

6 

LOC 

EQU 

LP 

AND 

621 

LP 

JUMP 

PC 

LOC 

EQU 

NOP 


X * 3E * 

= X*2» 

TDAT 2 
=X•90 1 
7 

TDAT10 

T DAT-2 
X 1 0499 * 

X«3E* 

*1 

TPAT5 
= 20 
XPLAY 

XDLAY-X»04A3» 
TPAT5 
X * 04 A4 • 




* 

NOP 


1326 

0000 

* 

NOP 




* 

NOP 


1327 

0000 






* 

* NO 

# 

SPECIAL 

ACTION 



# 

LOC 

TDAT 3 


04A8 

TDAT3 

EQU 

X * 04A8 * 



* 

LD 

X * 38 • 

1328 

5038 

* 

DEC 




* 

ST 

X»38* 

1329 

0551 





* 

AND 

= 16 

132A 

3893 

* 

C 

= 0 

1326 

1092 





* 

LD 


132C 

0010 

# 

BEF 

TDAT4 

132D 

F103 

# 

OR 

X»3D» 

132E 

543D 

* 

LOC 

TDAT 4 


04B6 

TDAT4 

EQU 

X»04B6» 



* 

6LCT 

EOF 

132F 

E310 

* 

SEND 

0 



* 

BART 

TXYZ 

1330 

60E5 

* 

WAIT 


1331 

C701 

* 

6 

TXYZ 

1332 

E0C4 





*-—------------------ 

* 

* MINIMUM LOOP 

* t LOC TDAT 9 

TDAT 9 EQU X*Q4BE* 

* LD 

* 6LCT EOF 

* SEND 0 


STRIP TO ABOkT 
B = NO ABORT 
ABORT 

OUT CONFIG 

GO TO END OF FRAME PROCESSING 


GET FLAG 

STRIP TO DELAY FLAG 
DON’T DELAY HERE 

DELAY 100 MS 


PATCH SPECIAL ACTION HERE 


DEC CHAR COUNT 


PUT IN LEADING SPACES 1/3 OF TIME 


MORE SPACE IN BUFFER 
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006098 



# 

bART 

TDAT9 



006101 

1335 

E5FB 






r 006 102 



* 

WAIT 




I 006103 



* 

b 

TDAT9 



1 00610* 

1336 

01E0 






006106 



# 





006109 



* END OF FRAME ROUTINE 



006110 



* 





006111 



* 





006112 



* 

LOC 

EOF 



006113 


04C7 

EOF 

EQU 

X•04C7• 



006114 



* 

ST 

X • 39 • 


TEMP STORAGE 

006116 

1337 

F851 






00611b 



* 

LD 

3 


GET CASI BYTt INFo 

006119 

1338 

3950 






00612<> 



# 

AND 

= X • F • 


STRIP TO BYTc SIZE AND PARTIAL BYTE 

00b 12 3 

1339 

0393 






006126 



* 

ST 

X • 24 • 



005127 

13 3 A 

0F5 1 






006130 



* 

LD 

X • 19 • 


GET CONTROL FRAME NUMBER 

006131 

133b 

2450 






006134 



* 

C 

X»3B» 


CHECK WITH ACTUAL 

006136 

133C 

1952 






006136 



* 

bET 

EOF 1 


B = lb CONTKuL FRAME 

006139 

1330 

3bE 1 






006142 



* 





006143 



* IF IT 

IS A 

CONTROL FRAME PICK UP LAST CONTROL *0RD 

006144 



* FROM 

X»37«. 

OTHERWISE 

SEND ONLY 

EOF + BY1E SIZE* 

006145 



# 





006146 



* 

NOP 




006147 

133E 

OBOO 


~ 




006146 



* 

NOP 




006149 



* 

NOP 




006150 

133F 

0000 






006151 



* 

NOP 




006152 



* 

LD 

X • 24 • 


GET BYTE SIZl 

006153 

1340 

0050 






006156 



* 

OR 

o 

X 

ii 


SET EOF BIT 

006157 

1341 

2494 






006160 



# 

b 

E0F2 



006161 

1342 

10E0 






006164 



* 





006165 



* 

LOC 

E0F1 



006166 


04DF 

EOF 1 

EQU 

X•Q4DF * 



006167 



* 

LD 

X* 37 • 


GET XMU CONFIG INFO 

006166 

1343 

0950 






006171 



* 

OR 

?X•10 * 


PUT IN EOF 

006172 

1344 

3794 






006175 



* 

AND 

=X•30• 


STRIP OFF BYTE SIZE 

006176 

1345 

1093 






006179 








006180 



* 





006181 



* SEND 

OUT CLOSE FLAG 



r 006182 



* 





f 006183 



* 

OR 

X • 24 * 


PUT IN bYTE SIZE FOR LAST 

006184 

1346 

3054 






V 006187 



* 

LUC 

EOF 2 



006188 


04E7 

E0F2 

EQU 

X'04E7» 



006189 



# 

OUT 

7 


TELL HDLC TO SEND CLOSE FLAG 

006192 

1347 

2437 






006193 



* 

LD 

X • 39 * 



006196 

1348 

5039 






006197 



# 

LOC 

TDAT10 



006198 


04EA 

TDAT10 

EQU 

X•04EA• 



006199 



* 

SEND 

0 



006202 



# 

LD 

X • 38 • 



006203 

1349 

6050 



L 



00620b 



# 

DEC 




006207 

134A 

3805 






006206 



* 

ST 

X • 38 * 


DEC CHAR COUNT 

006211 

134b 

5138 






006212 



* 





006213 



* TEST 

TO SEE 

IF ’’DELAY” 

XMIT BIT 

IS ON. 

006214 



* 





006215 



* 

LD 

X' 3F • 



006216 

134C 

5 0 3 F 






006219 



# 

AND 

sX«40* 


GET DtLAY XMIT BIT 

006222 

1340 

9340 






006223 



* 

BZT 

TDAT 12 


B s NUT SET 

006226 

134E 

E218 






006227 



* GIVE 

DELAY 

FOR TIME FOR XMIT TO 

OCCUR ID "DELAY XMlT» BROKEN 

006228 



# 

JUMP 

XDLAYl 



006231 

134F 

E600 






006232 



* 





006233 



* CHECK 

RCV FRAME ♦ CHAR 

COUNT TO 

INSURE NO CHAR HAVE BEEN 

006234 



* RECEIVED WHILE ’’DELAY 

XMIT" WAS 

ON. 

006235 



* 





006236 



* 

LOC 

T DAT 13 



006237 


04F9 

TDAT13 

EQU 

X•04F9’ 



006236 



# 

LD 

X» ib« 


GET RCV FRAMt COUNT 

006239 

1350 

8A50 






006242 



* 

C 

s?X»FF» 



006243 

1351 

1B92 






006246 



# 

bEF 

TONER 


B = ERRORi FRAME RCV*D WITH 

006247 

1352 

FFFi 






006250 



* 




XMIT DELAY BIT ON 

006251 



# 

LD 

X • 18 * 


GET RCV CHAR COUNT 

006252 

1353 

3F50 






006255 



* 

b2F 

TONER 


B s ERROR, CHAR RCV WITH 

006256 

1354 

18F2 






006259 



* 




XMIT DELAY BIT ON 

006260 



# 

LD 

X * 3F» 


GET CONFIGURATION WORD 

006261 

1355 

3650 






006264 



* 

AND 

=X•80• 


XMIT LR6 CONFIGURATION 

^ 006265 

135b 

3F93 






006268 



* 

ST 

X * 3 F • 



006269 

1357 

8051 






I 006272 



# 

SR 




006273 

1356 

3F07 






006274 



# 

SR 




006275 



* 

SR 




006276 

1359 

0707 
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006*77 

006*80 

006*81 

006*8* 

006*83 

006284 

006*85 

006286 


050D 

006287 

006288 

135A 

3601 

006289 

006*90 

006293 

006*94 

1358 

*551 

006*97 

006298 

135C 

2E93 

006301 

00630* 

1350 

01F2 

006305 

006306 


0515 

006307 

006308 

135E 

4602 

006309 

00631* 

135F 

9000 

006313 

006316 

1360 

5138 

006317 

006318 

006319 

006320 

006321 

00632* 

006325 

1361 

503E 

006326 

006329 

136* 

9304 

006330 

006333 

1363 

E212 

006334 

006335 

006336 

006337 

006340 

1364 

5019 

006341 

006344 

1365 

5236 

006345 

006348 

1366 

FiOC 

006349 

006352 

1367 

9014 

006353 

006356 

1368 

F036 

006357 

006360 

1369 

5014 

006361 

006364 

136A 

9402 

006365 

006368 

1366 

5114 

006369 

00637* 

006373 

006374 

006375 

006376 

006377 

0531 

006378 

006379 

136C 

32F4 

00638* 

006383 

006384 

006385 

006386 

006387 


0533 

006388 

006389 

1360 

1050 

00639* 

006393 

136E 

1493 

006396 

006397 

136F 

FES 1 

006400 

006403 

1370 

1432 

006404 

006407 

1371 

E6FE 

006408 

006409 

006410 


0530 

006411 

006412 

137* 

C690 

006415 

006416 

1373 

0EE6 

006419 

1374 

FE5B 

006420 

006421 

006422 

006423 

006424 

006425 


054* 

0064*6 

006429 

1375 

503E 

006430 

006433 

1376 

9320 

006434 

006437 

1377 

E210 

006438 

006439 

006440 

006443 

1378 

9014 

006444 

006447 

1379 

F019 

006448 

006449 

006450 

006451 

00645* 

006455 

137 A 

503E 


* OUT 6 

ft 


* FIRST 

* 

WAIT 

AFTER SENDING EOF 

* LAST DATA CHAR 


TDAT12 

ft 

LOC 

t WAIT 

TDAT12 

X'050D* 



* 





ft 

ft 

11 

5 

X * 2 E • 



ft 

AND 

sX*l* 

STRIP TO UNDERRUN BIT 

ft 

62 F 

XUK 

BRANCH IF UNDERRUN 

4 

ft 

TPAT6 

ft 

LGC 

EQU 

GN6 

TDAT6 

X • 0515' 



ft 

LD 

= 0 



ft 

ST 

X * 38 * 

CLEAR CHAR COUNT 


: TEST 
ft A SPE 

IF CONTROL FLAG IS SET 
CIFIEP XMIT FRAME. 

TO TURN ON RCV AFTfcR 


ft 

LO 

X'3E* 

GET FLAG 


ft 

AND 

= 4 

STRIP TO DELAY TURN 

ON OF RCV 

* 

82T 

TDATil 



* 

* TURN 
£ 

ON RCV 




ft 

LD 

X • 19' 

ACTION FRAME 


ft 

C 

X«3B' 

COMPARE WITH ACTUAL 


ft 

6EF 

TDATil 

B s NOT THIS FRAMe 


ft 

LD 

= 20 

DELAY TO ALLOW LAST 

CHAR* 5 

ft 

6S 

CCPDLY 

TO GET TO RCVR 


ft 

LD 

X' 14* 

LR2 CONTROL 


ft 

OR 

s* 

PUT IN RCV BIT 


ft 

ST 

X* 14* 



ft 

^ ^ ^ _ 

OUT 

* 



ft 





* TEST 

FOR LAST FRAME XMITTED. 



TDATil 

ft 

EOU C 

6LBF 

TDATil 

X * 0531 * 

TDAT7 




* 

* 


* END 

OF TRANSMISSION 

- SHUT OFF 

XMIT 


TEND 

* 

LOC 

suu 

LD 

TEND 

X'0533• 

X' 14 * 


GET LK2 CONTROL 


* 

AND 

*X'FE * 


STRIP OFF XMJT ON 


ft 

ST 

X* 14* 




# 

OUT 

2 




ft 

ft—— 

JUMP 

LAST 1 




ft 

TONER 

* 

, LOC 
EQU 

LD 

~ TONER 

X* 053D* 

* 14 


ERROR CODE 


ft 

JUMP 

EREND 


ERROR* DELAYED XMn 

DIDN'T FUNCTION 

_ 

DC 

EREND-X * 0541 * 



* 

ft interframe 

STATE 




ft 

TDAT7 

ft 

SQU C 

LD 

TDAT7 

X*0542 * 

X' 3E» 


GET FLAG 


ft 

AND 

=X»*0* 


CHECK FOR INTERFRAME 

DELAY 

ft 

BZT 

TDAT8 


B s NO DELAY 


ft INTERFRAME delay ROUTINE. NOTE THAT 'PAUSE FEATURE* OF 
ft PREVENTS THIS DELAY FROM "HOGGING” OUT RCV. 
ft LD *20 

MLCP 

ft 

BS 

CCPDLY 


DELAY 100 MS 


* 

ft ROUTINE TO ISSUE RCV RE-SYNC IF 
ft THIS OCCURS AFTtR DELAY BETWEEN 

SPECIFIED. 

FRAMES 


ft 

LD 

X * 3E» 


GET FLAG 
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006617 
006618 
006619 
006620 
006621 
006622 
006623 
006624 
006625 
006626 
006629 
006632 
006633 
006636 
006637 
006640 
00664I 
006644 
006643 
006646 
006647 
006646 
0Q6O49 
006650 
006651 
006654 
006653 
006656 
006659 
006662 
006663 
006666 
006667 
006670 
006671 
006672 
006673 
006674 
006675 
006676 
006679 
006680 
006683 
006684 
006687 
006688 
006691 
006692 
006695 
006696 
00669? 
006696 
006699 
006700 
006701 
006702 
006705 
006706 
006709 
006710 
006713 
006714 
006717 
006718 
006721 
006722 
006723 
006724 
006725 
0Q6726 
006727 
006730 
006731 
006732 
006733 
006734 
006735 
006736 
006737 
006740 
006741 
006744 
006745 
006748 
006749 
006750 
006751 
006752 
006753 
006754 
006755 
006756 
006759 
006760 
006761 
006762 
006765 
006766 
006767 
006768 
006769 
006772 
006773 
006774 
006775 
006776 
006777 
006778 
006779 
006780 
006783 
006784 
006787 




# 

NOP 




139A 

0000 

* 

NOP 






# 

NOP 




139b 

0000 

* 

NOP 






* 

NOP 




139C 

0000 

* 

LD 

= 0 



139 D 

9000 





139E 

PQ32 

* 

BS 

GSTAT 

0UTPU1 CONTROL 

and input status 

* 

C 

= 0 



139F 

9200 

* 

BET 

DS1 



13A0 

E103 

# 

6S 

BADS 

BAD ST A 1 US 


13A1 

F025 

£ 






* DS1 

* 

LOC 

DSi 




0210 

DS1 

EQU 

X*0210* 





* 

WAIT 






* 

LD 

=X*80» 



13A2 

0190 





13A3 

13A4 

80 FO 

* 

BS 

GSTAT 

OUTPUT CONTROL 

and input status 

* 

C 

X'3E« 

10 FOR BHCLAit 

90 FOR BHCLA2 

2752 

# 

BET 

DS2 




13A5 

3EE1 

03F0 

# 

bads 

bad status 


BS 

13A6 

* 

* DS2 

* 

DS2 






LOC 


02 IB 

DS2 

* 

EQU 

WAIT 

X«021B* 



13A7 

1A01 

* 

• X * 40 * 



LD 

13A8 

9040 





13A9 

F01C 

* 

BS 

GSTAT 

OUTPUI CONTROL 

and input status 

* 

C 

X * 3 F 1 

EO FOR BHCLA1* 

60 FOR BHCLA2 

13AA 

52 3 F 

# 

BET 

DS3 



13AB 

E103 





13AC 

FOOF 

# 

BS 

BADS 

BAD SIAIUS 


# 

* DS3 

# 

LOC 

DS3 









0226 

DS3 

EQU 

X • 0226 * 





* 

WAIT 






* 

LD 

-X* 3C* 



13AD 

0190 





13AE 

3CF0 

* 

BS 

GSTAT 

OUTPUT CONTROL 

AND INPUT STATUS 

* 

C 

= X*0» 



13AF 

1192 

# 

BET 

DS4 



1360 

00E1 





1361 

03FQ 

# 

BS 

BADS 

BAD STATUS 


* 








* DS4 

* 

LOC 

DS4 


0231 

DS4 

EQU 

X * 0231• 



* 

WAIT 


1362 

0401 

* 

DSO 

B 

1363 

eqcd 

* 





* ROUTINE FOR 

bad status 



* 

* BADS 

* 

LOC 

BADS 


0234 

BADS 

* 

EQU 

LD 

X •0234• 

xuo» 

1364 

5010 




* 

OR 

= X'4» 

1365 

9404 





* 

ST 

X*1Q* 

13B6 

5110 

* 

RET 



* 

* routine to output control AND INPUT STATU* 

* 

* GSTAT 

* LOC GSTAT 




" i n i 

* 

LOC 

GSTAT 



023B 

GSTAT 

EQU 

X* Q23B* 


13B7 

0632 

# 

OUT 

2 

OUTPUT CONTROL 



* 

NOP 





* 

LD 

= 0 


13B8 

0090 





023F 

* 

LOC 

STDLY 



STDLY 

# 

EQU 

DEC 

X«023F* 



13B9 

0005 




13BA 

F2FE 

* 

B2F 

STDLY 

DELAY 







# 

NOP 





# 

NOP 



13BB 

0000 






* 

NOP 





# 

NOP 



13BC 

0000 






* 

IN 

5 

INPUT STATUS 



* 

ST 

X • 2E f 

13BD 

2551 






# 

AND 

-X’ F7 9 

STRIP OFF ADAPTER READY 
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006788 

006791 

13BE 

2E93 

* 

RET 

RETURN 

006792 

006793 

13bF 

F706 

# 

NOP 


006794 

006795 

13C0 

0000 

* 

NOP 


006796 


13C1 

CCP5 

LOU 

$ 

006797 



* 



006798 

006799 

1800 


* 

OKU 

ZERO+X*1600* 

006600 

1800 


SDB 

RESV 

X 1 400 * 

006601 

1C00 


RTB 

KESV 

X•400 * 

006602 

006803 

2000 


* 

ORC 

ZEKO+X•2000• 


SEND BLOCK BUFFER 
RETURN BLOCK AREA 
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$AF 

750B 

11866 

26 11C 

2898C 

2911C 

3795 

3982B 

4012C 

4056 

4139C 


42016 

42046 

42456 

4292B 

4297B 

4475 

4477 

6824 

6825 

68^6 


6827 

6828 

6829 

6830 







$61 

1126B 

1165 

1169 

1173 

1251 

1253C 

1257C 

1325 

1326 

1337 


1339 

1342 

1570 

1571 

1582 

1584 

1587 

1592 

1595 

1913 


1915 

1918 

1920 

1922 

1924 

1926 

2442 

2445 

2447 

2449 


2451 

2453 

2456 

2610 

26 11C 

3062 

3084 

3124 

3125 

32216 


3229b 

33956 

3468 

3470C 

3734 

3735C 

3736 

3760 

3761C 

3762 


3773 

3774C 

3775 

3785 

3786C 

3787 

4036 

4043 

4045 

4058 


4061 

4179 

4180 

4183 

4185 

42076 

4221 

4223 

4225 

4227 


4258 

4261 









$B2 

717 

720 

9476 

969 

970C 

973B 

994 

995C 

9996 

1020 


1021C 

10256 

1046 

1047C 

10516 

1072 

1073C 

10 7 7 B 

1260 

1261C 


12666 

1294 

1295C 

13006 

1332 

1333 

1355 

1356C 

13596 

1449 


1450C 

14546 

1491 

1492C 

1496B 

1531 

1532C 

1536B 

1612 

1613C 


16166 

1723 

1 724C 

1728b 

1759 

1760C 

17646 

1796 

1797C 

1801B 


1623 

1824C 

1628B 

1850 

185 1C 

18556 

1877 

1878C 

18826 

1952 


1953C 

19576 

2248 

2249C 

2^536 

2283 

2284C 

2288B 

2318 

2319C 


23236 

2365 

2366C 

23676 

2409 

2410C 

24156 

2477 

2478C 

2488B 


256 IB 

27016 

2788B 

28386 

29646 

3545 

3556 

3562C 

3566C 

3569 


3571C 

3576C 

3586C 

3602C 

3611 

3615C 

3620C 

3639 

3641C 

3693C 


3696 

3700 

3 706 

3712 

3717 

3722 

3724 

3728 

3730 

3732 


3734 

3738 

3 752 

3760 

3764 

3767 

3773 

3777 

3780 

3785 


3789 

3792 

3809 

4285 

4291 






$B3 

9926 

10446 

10706 

11456 

1148B 

11546 

12966 

13546 

14476 

1489B 


1529B 

1610B 

1 7216 

17576 

17946 

182 IB 

18486 

J875B 

19506 

2246B 


22816 

23166 

25746 

25856 

26946 

27036 

2780B 

279 IB 

28328 

2843B 


2897 

2898C 

2907 

2909 

2910 

2911C 

2956B 

29826 

30056 

3070B 


31646 

33586 

3404 

3411 

3419 

3424C 

34756 

3793B 

39428 

3944B 


3957b 

39596 

39636 

39666 

40256 

40286 

4165B 

4258 

42658 


$B4 

716 

719C 

8406 

9716 

997B 

10236 

1049B 

10756 

11186 

1120B 


11226 

11586 

11616 

11716 

1184B 

12636 

12986 

1357B 

14816 

1493B 


15336 

16146 

17256 

17616 

17986 

18256 

18526 

18796 

19546 

2250B 


22656 

2320b 

24126 

24796 

2483B 

24876 

25776 

2 5 9 7 B 

26016 

2616B 


26216 

26266 

2634B 

26436 

26976 

27276 

27286 

2740 

2741 

2783B 


26346 

2896 

2897 

2899 

2909 

2910 

29256 

2926B 

29336 

2959B 


29866 

29956 

30116 

30206 

30296 

30746 

30836 

31596 

32386 

325 IB 


32636 

32746 

3286B 

3293b 

3300B 

3307b 

33146 

33306 

33506 

3354B 


33846 

33936 

3524B 

36456 

3 6 7 7 B 

36946 

3736 

3737C 

3762 

3763C 


3775 

3776C 

3 787 

3788C 

3819 

38226 

3835B 

38406 

38436 

3847B 


38506 

38556 

3864 

3865 

38676 

38736 

3887 

3888 

38926 

3899B 


39126 

39196 

39226 

39336 

39736 

39806 

39856 

41416 

41476 

4157B 


41626 

41876 

4191b 

41976 

42296 

4233B 

42436 

4250B 

42686 

4285 


4286 

4287 

4288C 

42906 

42956 

4299C 

430 IB 

68126 

68166 


$B5 

786 

791 

7 9 3 C 

28016 

28026 

3546 

3550 

3582 

3590 

3605 


3626 

3882 

4138 

4139C 

4179 

4182C 

4221 

4222C 

4288C 

4299C 


43196 

43526 









$66 

7516 

8426 

8 5 76 

8596 

8616 

8636 

873B 

875B 

8778 

879B 


8816 

883b 

8856 

8896 

89 IB 

8936 

8956 

898B 

9006 

902B 


9046 

9066 

908B 

9106 

913B 

9156 

9176 

919B 

9246 

959B 


9856 

10116 

10376 

10636 

10896 

11166 

11766 

118 7 B 

11926 

12796 


13126 

13446 

14716 

15146 

1 5546 

16316 

1 7 4 7 B 

17766 

18146 

184 IB 


18686 

18956 

19776 

22746 

23096 

23446 

23556 

2359B 

23816 

2428B 


25066 

2596b 

26086 

26246 

2630B 

26386 

26546 

26706 

26846 

2722B 


27396 

27636 

2 769B 

28876 

2892B 

29206 

2990B 

2999B 

30148 

3024B 


30336 

30486 

30786 

30876 

3456B 

38466 

38706 

39026 

39156 

3950B 


39836 

4010 

4011 

4012C 

41246 

42026 

4205B 

42468 

42938 

4298B 

$Ri 

673 

674C 

681 

682C 

683 

684 

701 

702C 

703C 

704C 


706 

707C 

714 

7156 

716C 

720 

72 IB 

722 

724 

726 


727 

730 

7 34 

735C 

748 

749 

758 

759 

760 

763C 


764 

765C 

767 

768C 

787 

790 

792 

793C 

804 

805 


806 

812 

814 

820 

824 

828 

836 

837C 

850 

85 1C 


865 

866 

868 

869C 

932 

933C 

943 

944C 

965 

966C 
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990 

991C 

1017 

I018C 

1042 

10430 

1068 

1069C 

1109 

HlOC 



X U3 

1114b 

1139 

1140C 

1142 

11570 

1173 

11940 

1195 

1245 



12 4 6 C 

1252 

1253C 

1254 

1257C 

1258 

1290 

1291C 

1292 

12930 



1326 

1328C 

1329 

1330C 

1331 

1333 

13340 

1335 

13360 

1337 



13380 

1339 

1340 

1341C 

1342 

1343b 

1346 

1347C 

1440 

14410 



X442 

1443C 

1481 

1482C 

1483 

14840 

1521 

1522C 

1523 

15240 



1671 

1572C 

1573 

1574C 

1575 

1577 

15780 

1580 

15810 

1582 



1583C 

1584 

1585 

1586C 

1587 

1 5886 

1589 

1590C 

1592 

1593 



X594C 

1595 

1597C 

1598 

15990 

1713 

17140 

1715 

17160 

1754 



1755C 

1789 

1790C 

1791 

1792C 

1816 

1817C 

1818 

18190 

1843 



18440 

1845 

1846C 

1870 

1871C 

1872 

18730 

19120 

1915 

1918 



X920 

1922 

1924 

1926 

1928C 

1935 

19360 

1947 

19480 

1974 



2241 

22420 

2243 

2244C 

2276 

22770 

2278 

22790 

2311 

2312C 



2313 

23140 

2350 

2351C 

2353 

2354B 

2386 

2387C 

2391 

2392 



2395 

2396C 

239 7 

2398C 

2399 

24040 

2438 

2439C 

24400 

2445 



2447 

2449 

2451 

2453 

2456 

2463 

24660 

24760 

2501 

2504 



2505B 

2589 

2591 

2603 

2604 

2618 

2619b 

2639 

2641 

2657 



2658 

2665 

2667 

2677C 

2679 

2680 

268 1C 

2709 

2710 

27X6 



2717 

2741 

2 742 

2743C 

2744 

27450 

2751 

2753 

27540 

2764 



2765C 

2771 

2 792 

2793 

2794 

2795b 

27960 

27970 

2810 

28 HC 



28X5 

2817C 

2618C 

2847 

28480 

2902 

29060 

2907 

2922 

2923 



2971 

2973 

2978 

2979C 

2980 

29810 

3059 

3060B 

3064 

3066B 



3068C 

3093 

3094C 

3121 

3122b 

3123 

3125 

3132 

3134b 

3137 



3X38 

3139C 

3143 

31446 

3145 

3146B 

3147 

3148 

3149 

3X500 



3152 

3153b 

3154 

3155 

3156C 

3248 

3249 

3319 

3323 

33240 



3339 

3340C 

3341C 

3343 

3344 

3387 

3388 

3406 

3407 

34X2 



3 413 C 

3416 

3417 

3418C 

34200 

3422 

3423 

34240 

3425 

3426 



34270 

3428b 

3432 

3433 

3434C 

3441 

3442 

3444 

3445 

34460 



3450 

3451 

3452C 

3467C 

3470C 

3472 

3480 

34840 

3492 

3493^ 



3494 

3495 

3515 

3517C 

3521C 

3549 

3552 

3553 

3556 

3557 



3562C 

3566C 

3569 

357 1C 

3576C 

3577 

35790 

35810 

358£C 

35870 



36020 

3611 

36150 

36200- 

3636 

3668 

3671 

36800 

36820 

3684 



3686 

3696 

3697 

3698 

3699C 

3700 

370 1C 

3703 

3704 

37050 



3706 

3707 

3/080 

3709 

3710 

37110 

3712 

3713 

3714 

3715 



3716C 

3717 

3718 

3719 

37200 

3722 

37230 

3724 

3725 

3726 



3727C 

3728 

37290 

3730 

3 7310 

3732 

37330 

3738 

37390 

3743 



3744C 

3752 

3/530 

3754C 

3755 

3764 

37650 

37660 

3777 

37780 



37790 

3 780 

3 7 8 1C 

3782C 

3783 

3789 

37900 

3791C 

3792 

3812 



3813 

3815 

3619 

3883C 

3884C 

3885 

38860 

3887 

3888 

38890 



3890C 

3909 

39 IOC 

3916 

3918 

3926 

£9270 

3928 

3929 

3940 



3941C 

3952 

3955 

3956C 

39610 

39620 

3990 

39910 

3992 

3993 



3994C 

3998 

3999C 

4000 

4001C 

4009 

40210 

4022 

40300 

40310 



4037 

4038C 

4039 

4052C 

4053 

4129 

4130 

4136 

4137 

41400 



4142C 

4143C 

4144 

4145C 

4185 

4186 

4225 

42260 

4227 

4228 



4259C 

4261 

4 2 6 2 C 

4307C 

4310 

4313 

4314 

4316 

6813 

68140 


$R2 

713C 

720 

785 

791 

7930 

794b 

1166 

1167 

1255 

1259B 



1323C 

1326 

1337 

1339 

1342 

13480 

1371 

1568C 

1571 

1582 



1584 

1587 

1592 

1595 

15960 

15970 

16000 

16010 

1602 

16060 



1628 

1915 

19166 

1917C 

1918 

19190 

1920 

19210 

1922 

19230 



1924 

1925C 

1926 

19 2 7 C 

1939 

1940 

1943 

19440 

1945 

19460 



2393 

2394 

2395 

2400 

2401b 

2402 

2443 

2457C 

2659 

2660 



2661 

2662 

2663 

2678 

2685b 

28490 

2856C 

28600 

28660 

2896 



2902 

2908C 

2 9 7 2 C 

2975 

29760 

30440 

3045 

30460 

30610 

3064 



3084 

3120C 

3125 

3127 

3128 

31290 

31330 

31350 

31360 

3320 



3321 

3405 

3409 

3436b 

34690 

34700 

34710 

34840 

3495 

3496b 



3497 

3503b 

3556 

3560 

3561 

35620 

3565 

35660 

3569 

3570 



3571C 

3574 

3575 

3576C 

3585 

35860 

3593 

3594 

3595 

35990 



3601 

3602C 

3609 

3612 

36160 

3626 

3627 

3628 

3629 

3633 



3634 

3636 

3639 

36410 

3642 

3663 

3672C 

3673 

3674 

37010 



3702 

3740 

3741 

3751C 

3767 

37680 

37690 

3771 

4014 

4015b 



4022 

4023b 

4024C 

4050 

40510 

4056 

40570 

4183 

41840 

4261 



4263B 

4269 

4287 

4296 








*R3 

8390 

1119 C 

1126b 

1127C 

11340 

1138 

1139 

1141 

11810 

1182B 



1183C 

1189 

1197 

1322C 

2576C 

25830 

26150 

2687 

2688 

2696C 



2726C 

2772 

2773 

2782C 

27900 

2804 

28O50 

2816 

28170 

28?0 



2821 

2833C 

2640C 

2935 

2936 

29580 

29690 

2970 

2971 

2977 



2994C 

3010C 

3019C 

3028C 

30440 

3049 

3082C 

3091 

3092 

3158 



3220C 

3280C 

3329C 

33340 

3381b 

33820 

3390C 

34020 

3403 

34240 



3440 

3482C 

3485 

3486C 

3490 

3500 

3516 

35170 

3518 

35190 



3520 

3521C 

3522 

3523C 

3608 

3810 

3812 

38170 

3821 

3832 



3833 

3834 

39536 

3954C 

3992 

4008C 

4329 

4330 

4335 

4341 


*R4 

4347 

699 

700C 

789 

791 

792 

1180 

1185 

1333 

1334C 

1577 



1578C 

2445 

2446C 

2447 

24480 

2449 

24500 

2451 

24520 

2453 



2454C 

2455b 

2456 

24570 

2661 

2662 

*663 

26640 

2798 

2799 



2800C 

2865C 

2867 

2869 

2873 

2876 

2879 

2913C 

3383C 

33900 



3391 

33940 

3552 

3554 

35550 

3557 

3607 

3608 

3612 

3624 



3625B 

3629 

3630 

3631C 

36380 

3639 

3640 

36410 

3669 

3670 



36800 

3682C 

3685 

3686 

37700 

3833 

3842 

3844 

3866 

3868 



3898 

3900 

3911 

3913 

3979 

3981 

4010 

4011 

4043 

4044 



4046 

4048C 

4061 

4146 

4151 

4161 

4163 

4180 

41810 

4223 



4224C 

4242 

4244 

4267 

4269 

4289 

4291 

4294 

4296 

43070 



4308 

4309C 

4310 

4311 

4312 

4315 

4316 

43170 

4339 

4346 


$R5 

727 

728 

740C 

749 

752 

753 

7540 

756 

7650 

776 



1172 

1174 

1185 

1191b 

2594 

2606 

2622 

2628 

2636 

2651 



2667 

2668 

2680 

2682 

2720 

2 737 

2747 

2748 

2760 

27660 



2767 

2771 

2860C 

2861 

2885 

2890 

2918 

2988 

2997 

30U 



3022 

3031 

3076 

3085 

3485 

3505 

3508 

3611 

3614 

36150 



3619 

3620C 

3634 

3635C 

3673 

3679 

3864 

3865 

3868 

3893 



3900 

39450 

3948 

3960C 

3967 

3968 

39690 

3971 

3981 

4029 



4030C 

4045 

4046 

4059 

4062b 

4151 

41530 

4163 

4200 

4203 



4244 

4286 

4291 

4334C 

4335 

43360 

43400 

4341 

4342 

4343 


$R6 

4349 

688C 

692C 

6980 

1173 

1174 

11900 

25900 

2593 

2594 

2602 



2606 

2620 

2622 

2627 

2628 

2635 

2636 

2652 

2665 

2666 



2668 

2679 

2682 

2707C 

2715 

2719 

2720 

2734 

2736 

2737 



2761 

2762 

2 76 7 

2852C 

2854 

28570 

2862 

2864C 

2865C 

28710 



2875 

2878 

2881 

2884 

2885 

2889 

2890 

2899 

2900 

29010 



2903 

2904 

2919 

2927C 

' 2929 

2987 

2988 

2996 

2997 

3009 



3012 

3021 

3022 

3030 

3031 

3075 

3076 

3084 

3085 

3505 



3506 

3510b 

39470 

3948 

43280 







$R7 

690 

691 

693 

694C 

695 

696 

6970 

778 

2653 

2708 



2712 

2717 

2 746 

2750 

2751 

2851 

2853 

2928 

2931 

3481 



3506 

3509 

3511 

3514C 

3516 

3664 

3665 

3668 

4331 

*332 



4333 

4334C 

4337 

4338 

4339 

4340C 

4344 

4345 

4346 

4347 



4348 

4349 

43500 








2694 

ABUNO 

1616b 

17646 









2736 

ABUNDl 

2733B 










2697 

ABUND2 

2774B 










2703 

ABUND3 

2699B 










2720 

ABUND4 

2718B 










2737 

ABUND5 

2735B 










2700 

ABUND6 

2698B 













TITLE DCMS3* *REV A« 


PAGE 59 



2716 

ABUN07 

2714B 




2713 

ABUNP8 

2711B 




2751 

3191 


2749B 

2672 

2713 

2732 

3723C 

3556 

ADPR 

3563B 




4378 

ADSTR 





789 

ALL 

7948 




4376 

4466 

avt r 

702C 

703C 

704C 

765C 

738 

BADINP 

736 




6736 

LAOS 

6642 

6tr4 3 

6644 

6668 



6720 

6726 



4403 

bASt 

2396C 

2406 



3503 

LITLUP 

3510B 

3512B 



4327 

bPS 

2802B 




925 

BYPSS 

922B 




3667 

BYTT2 

3688B 




4408 

CO 

705 

2362 



4377 

H6 





4416 

C* 

2841 




4410 

C70 

1019 




4409 

U8 

705 

967 



4399 

CBLOOP 

801C 

809C 

1113 

3059 

1118 

LBLP1 

U14B 




1120 

LBLP2 

1196B 




1194 

CBLP4 

1191B 




1158 

CBLP5 

1196B 




1184 

CBLP6 

1182B 




1128 

CBLP7 

1126b 




1115 

LBLP8 

11218 




1157 

CBLP9 





1180 

CBLP-3 

1175B 




1109 

CBLP-L 

863B 




3760 

CCBA 

3756B 




4504 

CCP1 

3222 

3223 



5592 

LCP2 

3223 

3230 

3231 


6599 

LCP3 

3231 




6615 

CCP4 

1129 

1130 



6796 

CCP5 

1130 




6522 

CCPD1 

6558 

6559 

6560 


6529 

CCPD2 

6545 

6546 

6548 


6515 

CCPULY 

6354 

6355 

6356 

6445 



6587 

6588 



2915 

^ TA 

2898C 

2911C 



3569 

3551b 




3581 

CFP1 

3573B 




3832 

CGSCH 

1184b 

3843b 

386 7B 

3899B 



4290B 

4295B 



4397 

CHAM 

2583C 

2687 

2 n 2 

2 790C 



3091 

3158 

4008C 


3863 

CHCT 

1158B 

3330B 

3350B 

3384B 

1154 

CHLPX 

1147b 




1148 

CHLPY 

1143B 




3484 

CHLUP 

3498 

3504b 



4369 

CHRCMT 

2797C 

4329 



4371 

CHS2 

946C 

2364C 

3123 

3548C 

3872 

CH2 

3869B 




4417 

CM! 

2841 




2648 

COMP 

2611C 

2637b 

2642B 


2757 

COMP 1 





726 

C0M1 





748 

C0N2 

729B 




785 

COM3 

72 IB 




758 

COM4 

779B 




4445 

CONTI 

788 

4289 



4454 

COMT10 

1180 

4161 



4455 

C0M111 





4456 

C0MT12 

3979 




4446 

C0MT2 

3911 




4447 

C0MT3 

4294 




4448 

C0MT4 

*24 2 




4449 

C0MT5 

4267 




4450 

COM! 6 

3898 

4146 



4451 

C0NT7 

3666 




4452 

COM 76 





4453 

C0MT9 

3842 




4370 

COUNT 

2439C 

2504 



2442 

CRC-LP 

2502B 




2522 

CRCTST 

2442 




4394 

CRLP 

4037 

4056 



1171 

CUR 

1168B 




4379 

9 ADD 

706 

716C 



3460 

UASH 

3430 




4479 

LATE 

4477 




3624 

0CHS2 

3606 B 





UCMS3 

1 

6831 



4375 

UEV1D 

754C 

772 

1140C 

1166 

2233 

UEX 

1348C 

1371 

1596C 

1628 

4380 

UFLT 

3854 




4413 

UIV1 

694C 

4308 



4414 

UIV2 

697C 

4311 



4415 

01V3 

698C 

4313 



4128 

OLAY 

2616B 




4150 

OLAY 1 

4154b 




4138 

OLAY 2 

413 1B 




4135 

OLAYLG 

U61B 

2597B 

2 7 2 7 B 

2925B 

4790 

OLOUP 





3649 

OMASK 

2663 

3634 



4120 

OMPLOC 

3941C 

3943 

3956C 

3958 

4766 

OOCFO 

4750 

4751 

4753 


4381 

OR MG 

3854 




6614 

OSO 

6726 

6729 

6/30 


6648 

0S1 

6638 

6639 

6640 


6673 

0S2 

6664 

6665 

6667 


6699 

0S3 

6689 

6690 

6691 


6724 

054 

6715 

6716 

6/18 


1201 

OS-SB 

1165 




1208 

US-S61 

1169 




3101 

osc 

3064 




3103 

OSCi 

2976C 
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mi 

3TAT5 

3TATER 

3TbL 

3TDLY 

3TDTA 

3TLU0P 

3T0P 

STPT 

5TPTR 

3TRT 

SUP-G 

JcBBSZ 
TCBP 
TCBP1 
'DAT 10 
DAT 11 
TDAT12 
"DAT 13 
DAT 2 
DAT 3 
DAT 4 
DAT 5 
. DAT 6 
TDAT7 
TDAT 8 
TDAT9 
'DATA 
EMP 
END 
ERM-J 
EST 
ESTM 
E3TT 
ESTU 
E3TV 
E3TX 
EST Y 
EST2 
E3T21 
ESTZ2 
FLG 
FR~M 
IMQUT 
KSEC 
LQC 
LUP 
MPSTR 
ONI 
0N10 
0N2 
0N3 
0N6 
TONE 
T0N9 


853C 

11456 

6480 

5856 

5834 

5818 

34496 

3443B 
4050 
2808 
2354B 
2356B 
27956 
8616 
865 
869C 
4181C 
4184C 
42366 

4182C 

23676 

28226 

27866 

27646 

4153C 


667 

8836 

3733C 

1332 

35836 

35966 

5997 

6331 

6224 

6590 

5984 

5956 

6057 

6012 

6506 

6380 


33226 
33456 
32916 
39016 
38946 
39146 
192 1C 
9106 
3324C 
28016 
4309C 
19756 
705 
30956 
29746 
29606 
29616 
30396 
30896 
30606 


3932C 

11486 

6481 

5857 

5835 

5819 


2380 


2400 

872C 


6831 


1577 

35986 

5998 

6332 

6225 

6591 

5985 

5957 

6058 

6013 

6507 

6381 


3145 


8176 

8276 


2818C 

921 


5427 

5428 

5430 

5453 

5454 

5456 

5479 

5480 

5482 

5505 

5506 

5508 

5526 

5527 

5528 

5229 

5230 

5231 

2841 

2860C 


6770 

36256 

6771 

6 Z72 

6666 

8436 

856 

674C 

3447 

8 5 1C 

933C 


2661 


6003 

6333 

6226 

6592 

5987 

5960 

6059 

6015 

6508 

6389 


3151C 

8326 


3544C 

3644 

3662C 

3676 





4128C 

4135C 

4156 

41 Z8C 

4206 

4220C 

4241C 

4249 

4 3 2 7 C 

4351 






3839C 

4300 

3849 

3863C 

3872 

388 1C 

3908C 

3921 

4Z57C 

4058 

4122 







2575C 

2580 

2695C 

2700 

2 78 1C 

2787 

2831C 

2837 

32296 








981 

1007 

1019 

1033 

1059 

1085 

1251 

1274 

1463 

1467 

1504 

1508 

1544 

1548 

1624 

1737 

1810 

1837 

1864 

1891 

1966 

1970 

2262 

2266 

2301 

2305 

2332 

2336 

2340 

2362 

2376 

2408 

2497 

2665 

2679 

3404 

3468 

3485 

3517C 

3i>l9C 

3545 

3673 






11546 
6482 

31646 

39*2B 

39576 

3963B 

4025B 



5859 

5843 

c a o c 

5868 

5869 

5874 






2922 


5241 


9346 

9376 


3495 

3629 


6346 

6347 

6348 

6594 



5969 

5970 

5975 


6579 


6580 


6581 


6435 

5937 

6436 

5938 

6437 

5947 

6461 

6099 

6462 

6100 

6463 

6101 

6105 

6106 

6115 

2812C 

2813 

3402C 

3440 

3667C 

3681 

3683 

4048C 

4049 

8956 

33546 

32446 

41976 

3250b 

3259B 

32706 







32986 

38966 

1937 

4315 

707C 

30416 

30666 


3305B 


4317C 

712 


4333 

714 


717 


787 


3380C 3455 
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943 TON-AA 
6410 TONER 
2966 TQNTST 


1267 TRAN1 
1245 TRAN-F 
1661 TRH-B 
1667 TRM~C 
1673 TRN-0 
1679 TRM-E 
1665 TRM-F 
1691 TRM~G 
1697 TRM-H 
1703 TRM-J 
1623 TRMAC 
1621 1RhFLG 

1617 TRML6 

1618 TRML7 

1619 TRML8 
1570 TRMMLP 
1625 TRHkNG 
1655 TRMT6L 
1967 TRNG1 
1971 TRNG2 
4464 TSA2 
3220 TST1A 


6248 

947b 

6249 

6252 

6257 

6258 

6261 




763C 

767 

803 

804 

1134C 

1141 

1181C 

1189 

2805C 

2811C 

2813 

2648C 

2857C 

2864C 

2903 

2913C 

3046C 

3047 

3429 

1259B 

8816 

3434C 

1278 

3435 

3446C 

3448 

4038C 

4049 

4051C 

4057C 


.2687 TST1E 
2685 TST1F 


4418 

TTOT 

854C 

3926 

3927C 

3931C 



5944 

TXY4 

6075 

6076 

6078 

6080 

6081 

6082 

3190 

OFMCNT 

3731C 






1754 

UNDi-K 

900b 






2772 

UND2 

2752b 

2768b 

2770B 




2764 

UND3 

2759b 






3926 

UPTM 

3919b 

4141b 





3933 

0PTM1 

3930b 






3679 

VERT 

3675b 

3687B 





3239 

XADP1 

2610 

2941 

3 735C 




3252 

XA 002 

2618 

2942 

3256C 

3748C 

3761C 


3264 

XADD3 

2943 

3268C 

3 7 7 4 C 




3275 

XAD04 

2944 

3279C 

3 7 8 6 C 




1964 

XCQN 

1927C 

1944C 





3241 

XC0N1 

3243 

3248 

3753C 




3254 

XC0N2 

3256 

3 749C 

3/68C 




3266 

XC0N3 

3269 

3750C 

3 781C 




6572 

XDLAY 

6020 

6021 

6022 




6584 

XDLAY1 

6229 " 

6230 

6231 

6239 



4425 

XHCFW1 

3419 






4426 

XHCFW2 







4398 

XLOOP 

800C 

816C 

3152 




5617 

XM1T21 

5594 

5595 

5596 




4484 

XPRT 

3415 






5738 

XREV 

5661 

5662 

5t>63 

5714 

5715 

5716 

5700 

XREVX 

5729 

5730 

5 731 




3240 

XRNG1 

2589 

2716 

2745C 

2764 

3132 

3739C 

3253 

XRNG2 

3137 

3 7 4 7 C 

3 7 6 5 C 




3265 

XRNG3 

3778C 






3276 

XRNG4 

3790C 






5764 

XSTAK 

5757 

5 758 

5760 




3196 

XTEMP 

2584C 

2981C 





3186 

XTMSK 

3129C 






6488 

XUR 

6303 

6304 

6308 




4801 

XY2 

5407 

5408 

5409 

5418 



644 

2ER0 

661 

6799 

6802 





2HC0MM 

650 







LHIAFb 

647 







4H1SA2 

647 

4139C 






2HNTSA 

645 







2HPFR 

650 

3882 

4138 





2HRTCC 

648 

2799 

3341C 

3344 

3889C 

3895 


ZHRTC1 

649 

3338C 

3884C 

4143C 




2HRTCL 

649 

3340C 

3886C 

4145C 




2HTH15 

645 

719C 






ZHWDTC 

648 







ZVSbKF 

652 

6807 






ZVSbRK 

652 

6806b 






4VSC 

2648b 

2757b 

2915B 





4VSEK 

4013b 







4VSF 

705b 

967b 

1019b 

2362B 

284 IB 

3854B 


2VSFI 

646 

2406b 






4VSFR 

646 

24Q86 

2475B 





4140C 4150 


4V$PCH 

4.VSGC 

4VSRD 

4 VST 

651 

653 

646 

647 

732b 

686b 

672B 

77 lb 

71 IB 

3401B 

802b 

3410b 

3415b 

3430b 

4016B 




4VSTC 

653 

6815B 

653 

772B 

653 

646 

736b 

769B 

831b 

838b 

935B 

28066 

2808B 

30436 

34476 

4VSTD 

4VSTH 

4VS1H4 

4VSTTY 

770b 

34486 

930 

280?6 

4049b 

2809b 

2813b 

30476 

34296 

3435B 

40176 



646 LABELS 
3318 REFERENCES 
6831 RECORDS 
0 U FLAGS 
0 M FLAGS 
67 N FLAGS 

6 CROSS REF VERSION L * 
RS LINKER VERSION 5,05 
LINK MAP FOR DCMS3 
START 0100 

LOW 0000 

HIGH 29A6 


■ 24 SEPTi 
07/21/78 


19/6 

1809.4 EOT FRI 
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CURRENT 
*LQC UEE5 

Z9A7 


2HCQMM 

QOOO 


*0CP»63 

OOOO 

REV 

ZFiPFR 

0000 


ZHT5A 

0002 


ZHNT5A 

0010 


ZHRTCI 

0014 


ZHRTCC 

0015 


ZHRTCL 

0016 


ZHWOTC 

0017 


ZHMERC 

001 F 


ZNiAFb 

0020 


ZHTHZ9 

0063 


ZHTHZfa 

0064 


ZHTH27 

0065 


ZHTHZb 

0066 


ZHTH25 

0067 


ZHTH24 

0066 


ZHTH23 

0069 


£HTHZZ 

006A 


ZHTHZi 

006b 


ZHTHZO 

006C 


ZHTH19 

0060 


ZHTHi8 

006E 


ZHTHl7 

006F 


ZHMEMP 

OOoF 


ZHTHib 

0070 


ZNLERR 

0O70 


ZHTH15 

0071 


ZHNREb 

0071 


ZHTHI4 

0072 


ZHPMEH 

0072 


ZNTH13 

0073 


ZHP-OP 

0073 


mu 

0074 

0075 


ZHTHIO 

0076 


ZNTH9 

0077 


Zhthb 

0078 


ZHTH7 

0079 


ZHTH6 

007A 


ZHOVFL 

007A 


ZHTH5 

0076 


ZHOP~N 

0076 


ZHTH4 

007C 


ZHTH3 

0070 


ZH5C-N 

0070 


ZHTH2 

007E 


ZhTRC 

007E 


ZHTHl 

00 7 F 


ZHMCL 

007F 


ZHIbAZ 

ZHIVBb 

ZHTVBS 

0080 

0080 

0080 


*ZV*TH 

2063 


ZVSTO 

20 B6 


ZVS7H 

2083 


ZV$THz 

20A6 


*ZV*F 

2003 


ZVbF 

2003 


*ZV$ I H 

20E1 


ZViiU 

20 E6 


ZVSlH 

20E1 


ZVblAO 

20E6 


2 vs —2 

2103 


ZVS>~3 

2115 


*ZV$PCH 

217A 


ZVbPCH 

217A 


*ZV$T 

227C 

REV 

ZVbuC 

2299 


ZVsTC 

2285 


ZV$T 

227C 


ZVbU 

226E 


*2V$IA 

22A0 

REV 

ZVblA 

2260 


ZVSABF 

2361 


ZV*ARC 

235F 


ZVi—1 

231C 


ZVSIAV 

22AE 


*ZV3>FR 

236C 


ZV$FI 

236E 


Z V $ F R 

236C 


ZV$F5 

2361 


ZVSFR* 

236E 


ZV5FRX 

23BF 


ZV$FRR 

2363 


2V$FR6 

23C0 


2V$FRh 

2360 


*ZV$C 

23C3 

REV 

ZVSC 

23C3 


£VKU 

23E6 


*2V$ER 

23F7 

REV 

ZVSEH 

23F 7 


ZVSTA 

2443 


ZV$—0 

240A 


*ZV$6RK 

2467 


ZVSbRK 

2467 


*2VbGP 

2481 


ZViGP 

2481 


ZV*—4 

24A1 


*ZV$HA 

24AD 


ZVSHA 

24A0 


Z VS>H2 

2467 


Z V$H5 

2462 


*2V$HO 

24E6 


Z V$HO 

24E6 


*ZV$RO 

2518 

REV 

ZVSRD 

2518 


ZVSIZ 

2552 


ZV3>T TV 

2526 


2V$BKF 

2540 


ZVS6V1 

26E0 
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PAGE 


ZVS8V3 

ZVSAF 

ZVSSV2 

ZVSQTP 

ZVST1P 

ZVSCF2 

ZV3>TK 

ZVSRAR 

ZV$SU 

ZVS&RCC 

zv*bup 

ZVSGLB 

ZVSRCB 

ZV*NSR 

ZV$5TR 

«!R& 5 

ZVSLR 

ZVSPAT 

ZV$FM 

ZVSHkU 

ZV2>HRL 

ZVSLRU 

ZVSLRL 

ZVSFibP 

ZV$CFi 

ZV$—5 

ZVSRMD 

ZViMCP 

HIbAUP 

ZV$RAW 

ZV&RPT 

ZV$CTL 

ZV$bl 

ZV$T5T 

ZV$foDC 

ZV$R99 

ZV$IGA 

ZV4UIH 

ZV$ZRO 

ZV$b5Ft 

zvabCPu 
ZV&R5U 
ZV$R60 
Z V$RT 
ZV$ALL 
*toLCHPG 
MLCHPG 
LNDCHP 


27UP 

2529 
Z6FP 
25bF 
252A 

2534 

2530 

2531 

2535 

2536 
252C 
2536 
2539 
253D 
253b 
253F 

2547 
2544 

2527 
256E 

2541 

2542 

2543 

2544 
2546 
2533 
254A 

2528 
2546 

2545 

2532 
2749 
252F 
266A 
2 79F 
2773 
2971 
254D 

2548 
25CC 
25CE 
252E 
25AC 

mi 

252P 

2976 

2976 

29A7 


*UNL1NK MOPULE(S) 
ZV$QC 
2VS>I0 
ZViTC 
ZV$TD 
ZVSIZ 
ZViFI 
ZVSTHZ 


T + V 



